lean2/tests/lean/tactic1.lean

12 lines
302 B
Text
Raw Normal View History

Variables p q r : Bool
(**
local env = get_environment()
local conjecture = parse_lean('p => q => p && q')
local tac = REPEAT(conj_tactic() ^ imp_tactic() ^ assumption_tactic())
local proof = tac:solve(env, context(), conjecture)
env:add_theorem("T1", conjecture, proof)
**)
Show Environment 1.