13 lines
No EOL
245 B
Text
13 lines
No EOL
245 B
Text
(** import("tactic.lua") **)
|
|
Definition f(a : Bool) : Bool := not a.
|
|
|
|
Theorem T (a b : Bool) : a \/ b => (f b) => a := _.
|
|
apply Discharge
|
|
apply Discharge
|
|
disj_hyp
|
|
unfold f
|
|
exact
|
|
absurd
|
|
done
|
|
|
|
Show Environment 1. |