2014-01-05 12:05:08 -08:00
|
|
|
variables p q r : Bool
|
2013-11-28 18:17:15 -08:00
|
|
|
|
2014-01-05 10:32:47 -08:00
|
|
|
(*
|
2013-11-28 18:17:15 -08:00
|
|
|
local env = get_environment()
|
2014-01-08 00:38:39 -08:00
|
|
|
local conjecture = parse_lean('p → q → p && q')
|
2014-01-08 00:57:04 -08:00
|
|
|
local tac = Repeat(conj_tac() ^ assumption_tac())
|
2013-11-28 18:17:15 -08:00
|
|
|
local proof = tac:solve(env, context(), conjecture)
|
|
|
|
env:add_theorem("T1", conjecture, proof)
|
2014-01-05 10:32:47 -08:00
|
|
|
*)
|
2013-11-28 18:17:15 -08:00
|
|
|
|
2014-01-05 12:05:08 -08:00
|
|
|
print environment 1.
|