2014-05-21 11:24:24 -07:00
|
|
|
local env = bare_environment()
|
2014-10-02 16:54:56 -07:00
|
|
|
env = add_decl(env, mk_constant_assumption("A", Prop))
|
2014-05-08 18:50:24 -07:00
|
|
|
local c1 = type_check(env, mk_axiom("p", Const("A")))
|
|
|
|
local c2 = type_check(env, mk_axiom("q", Const("A")))
|
|
|
|
env = env:add(c1)
|
|
|
|
env = env:add(c2)
|