diff options
| author | Enrico Tassi | 2014-02-24 20:46:32 +0100 |
|---|---|---|
| committer | Enrico Tassi | 2014-02-26 14:53:08 +0100 |
| commit | 15b6c9b6fa268a9af6dd4f05961e469545e92a6f (patch) | |
| tree | 2e5aacf72993b448d1e80b0cbfbf0a09091ecb32 /proofs | |
| parent | e6556db92d4c4fe9ba38f26b89f805095d2b2638 (diff) | |
Lazyconstr -> Opaqueproof
Make this module deal only with opaque proofs.
Make discharging/substitution invariant more explicit via a third constructor.
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/pfedit.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/proofs/pfedit.ml b/proofs/pfedit.ml index 07c91c8d5e..f0ea695330 100644 --- a/proofs/pfedit.ml +++ b/proofs/pfedit.ml @@ -135,8 +135,8 @@ let build_constant_by_tactic id sign ?(goal_kind = Global,Proof Theorem) typ tac let constr_of_def = function | Declarations.Undef _ -> assert false - | Declarations.Def cs -> Lazyconstr.force cs - | Declarations.OpaqueDef lc -> Lazyconstr.force_opaque lc + | Declarations.Def cs -> Mod_subst.force_constr cs + | Declarations.OpaqueDef lc -> Opaqueproof.force_proof lc let build_by_tactic env typ tac = let id = Id.of_string ("temporary_proof"^string_of_int (next())) in |