2013-12-01 16:51:56 +00:00
|
|
|
Definition f(a : Bool) : Bool := not a.
|
|
|
|
|
|
|
|
|
|
Theorem T (a b : Bool) : a \/ b => (f b) => a := _.
|
2013-12-06 04:00:20 +00:00
|
|
|
apply imp_tac
|
|
|
|
|
apply imp_tac
|
|
|
|
|
apply disj_hyp_tac
|
|
|
|
|
apply (** unfold_tac("f") **)
|
|
|
|
|
apply assumption_tac
|
|
|
|
|
apply absurd_tac
|
2013-12-01 16:51:56 +00:00
|
|
|
done
|
|
|
|
|
Show Environment 1.
|
