7 lines
173 B
Text
7 lines
173 B
Text
(* import("tactic.lua") *)
|
|
set::option tactic::proof_state::goal_names true.
|
|
theorem T (a : Bool) : a => a /\ a.
|
|
apply discharge.
|
|
apply and::intro.
|
|
exact.
|
|
done.
|