2013-08-18 19:48:02 +00:00
|
|
|
Definition xor (x y : Bool) : Bool := (not x) = y
|
2013-08-20 00:25:15 +00:00
|
|
|
Infixr 50 ⊕ : xor
|
2014-01-05 19:03:35 +00:00
|
|
|
print xor true false
|
2013-08-18 19:48:02 +00:00
|
|
|
Eval xor true true
|
|
|
|
Eval xor true false
|
|
|
|
Variable a : Bool
|
2014-01-05 19:03:35 +00:00
|
|
|
print a ⊕ a ⊕ a
|
2013-12-22 01:02:16 +00:00
|
|
|
Check @Subst
|
2013-08-18 19:48:02 +00:00
|
|
|
Theorem EM2 (a : Bool) : a \/ (not a) :=
|
|
|
|
Case (fun x : Bool, x \/ (not x)) Trivial Trivial a
|
|
|
|
Check EM2
|
|
|
|
Check EM2 a
|