2014-05-21 18:24:24 +00:00
|
|
|
local env = bare_environment()
|
2014-05-21 18:05:22 +00:00
|
|
|
-- Trust level is set to 0 by default. Then, we must type check a
|
|
|
|
-- definition, before adding it to the environment
|
2014-10-02 23:54:56 +00:00
|
|
|
assert(not pcall(function() env:add(mk_constant_assumption("A", Prop)) end))
|
2014-05-21 18:05:22 +00:00
|
|
|
-- The function check produces a "certified declaration".
|
2014-10-02 23:54:56 +00:00
|
|
|
env:add(check(env, mk_constant_assumption("A", Prop)))
|