73 lines
No EOL
2.5 KiB
Text
73 lines
No EOL
2.5 KiB
Text
scope
|
|
theorem ReflIf (A : Type)
|
|
(R : A → A → Bool)
|
|
(Symmetry : Π x y, R x y → R y x)
|
|
(Transitivity : Π x y z, R x y → R y z → R x z)
|
|
(Linked : Π x, ∃ y, R x y)
|
|
:
|
|
Π x, R x x :=
|
|
fun x, ExistsElim (Linked x)
|
|
(fun (w : A) (H : R x w),
|
|
let L1 : R w x := Symmetry x w H
|
|
in Transitivity x w x H L1)
|
|
pop::scope
|
|
|
|
scope
|
|
-- Same example but using ∀ instead of Π and ⇒ instead of →
|
|
theorem ReflIf (A : Type)
|
|
(R : A → A → Bool)
|
|
(Symmetry : ∀ x y, R x y ⇒ R y x)
|
|
(Transitivity : ∀ x y z, R x y ⇒ R y z ⇒ R x z)
|
|
(Linked : ∀ x, ∃ y, R x y)
|
|
:
|
|
∀ x, R x x :=
|
|
ForallIntro (fun x,
|
|
ExistsElim (ForallElim Linked x)
|
|
(fun (w : A) (H : R x w),
|
|
let L1 : R w x := (MP (ForallElim (ForallElim Symmetry x) w) H)
|
|
in (MP (MP (ForallElim (ForallElim (ForallElim Transitivity x) w) x) H) L1)))
|
|
|
|
-- We can make the previous example less verbose by using custom notation
|
|
|
|
infixl 50 ! : ForallElim
|
|
infixl 30 << : MP
|
|
|
|
theorem ReflIf2 (A : Type)
|
|
(R : A → A → Bool)
|
|
(Symmetry : ∀ x y, R x y ⇒ R y x)
|
|
(Transitivity : ∀ x y z, R x y ⇒ R y z ⇒ R x z)
|
|
(Linked : ∀ x, ∃ y, R x y)
|
|
:
|
|
∀ x, R x x :=
|
|
ForallIntro (fun x,
|
|
ExistsElim (Linked ! x)
|
|
(fun (w : A) (H : R x w),
|
|
let L1 : R w x := Symmetry ! x ! w << H
|
|
in Transitivity ! x ! w ! x << H << L1))
|
|
|
|
print environment 1
|
|
pop::scope
|
|
|
|
scope
|
|
-- Same example again.
|
|
variable A : Type
|
|
variable R : A → A → Bool
|
|
axiom Symmetry {x y : A} : R x y → R y x
|
|
axiom Transitivity {x y z : A} : R x y → R y z → R x z
|
|
axiom Linked (x : A) : ∃ y, R x y
|
|
|
|
theorem ReflIf (x : A) : R x x :=
|
|
ExistsElim (Linked x) (fun (w : A) (H : R x w),
|
|
let L1 : R w x := Symmetry H
|
|
in Transitivity H L1)
|
|
|
|
-- Even more compact proof of the same theorem
|
|
theorem ReflIf2 (x : A) : R x x :=
|
|
ExistsElim (Linked x) (fun w H, Transitivity H (Symmetry H))
|
|
|
|
-- The command Endscope exports both theorem to the main scope
|
|
-- The variables and axioms in the scope become parameters to both theorems.
|
|
end
|
|
|
|
-- Display the last two theorems
|
|
print environment 2 |