2013-11-29 02:17:15 +00:00
|
|
|
Variables p q r : Bool
|
|
|
|
|
|
|
|
(**
|
|
|
|
local env = get_environment()
|
|
|
|
local conjecture = parse_lean('p => q => p && q')
|
2013-12-06 04:00:20 +00:00
|
|
|
local tac = REPEAT(conj_tac() ^ imp_tac() ^ assumption_tac())
|
2013-11-29 02:17:15 +00:00
|
|
|
local proof = tac:solve(env, context(), conjecture)
|
|
|
|
env:add_theorem("T1", conjecture, proof)
|
|
|
|
**)
|
|
|
|
|
|
|
|
Show Environment 1.
|