inductive
definition
Vantage
show as:
view math explainer →
open explainer
Generate a durable explainer page for this declaration.
open lean source
IndisputableMonolith.RRF.Core.Vantage on GitHub at line 27.
browse module
All declarations in this module, on Recognition.
explainer page
depends on
used by
formal source
24- `act`: The dynamic perspective (recognition, process, becoming)
25- `outside`: The objective perspective (physics, measurement, observation)
26-/
27inductive Vantage : Type where
28 | inside : Vantage
29 | act : Vantage
30 | outside : Vantage
31 deriving DecidableEq, Repr, Inhabited
32
33namespace Vantage
34
35/-- Vantage is finite with exactly 3 elements. -/
36instance : Fintype Vantage where
37 elems := ⟨[inside, act, outside], by decide⟩
38 complete := fun v => by cases v <;> decide
39
40/-- The number of vantages. -/
41theorem card_vantage : Fintype.card Vantage = 3 := rfl
42
43/-- Every vantage has a complement pair. -/
44def complements (v : Vantage) : Vantage × Vantage :=
45 match v with
46 | inside => (act, outside)
47 | act => (inside, outside)
48 | outside => (inside, act)
49
50/-- Cyclic successor (for the 3-phase rhythm). -/
51def succ (v : Vantage) : Vantage :=
52 match v with
53 | inside => act
54 | act => outside
55 | outside => inside
56
57/-- Cyclic predecessor. -/