diff options
| author |  Enrico Tassi <Enrico.Tassi@inria.fr> | 2013-12-24 18:18:10 +0100 |
|---|---|---|
| committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2013-12-24 18:23:41 +0100 |
| commit | 18c7a10341b462256b576542412db889d528465f (patch) | |
| tree | 3ccbccb2c94be46369fa5ebbdec11ba632c7e9fb /toplevel/obligations.ml | |
| parent | 7a7dd14e763d13887101834fc2288046740cb8a2 (diff) | |
Qed: feedback when type checking is done
To make this possible the state id has to reach the kernel.
Hence definition_entry has an extra field, and many files had
to be fixed.
Diffstat (limited to 'toplevel/obligations.ml')
| -rw-r--r-- | toplevel/obligations.ml | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/toplevel/obligations.ml b/toplevel/obligations.ml index 54e7fbf91..6536796f4 100644 --- a/toplevel/obligations.ml +++ b/toplevel/obligations.ml @@ -514,8 +514,9 @@ let declare_definition prg = const_entry_secctx = None; const_entry_type = Some typ; const_entry_opaque = false; - const_entry_inline_code = false} - in + const_entry_inline_code = false; + const_entry_feedback = None; + } in progmap_remove prg; !declare_definition_ref prg.prg_name prg.prg_kind ce prg.prg_implicits @@ -615,8 +616,9 @@ let declare_obligation prg obl body = const_entry_secctx = None; const_entry_type = if List.is_empty ctx then Some ty else None; const_entry_opaque = opaque; - const_entry_inline_code = false} - in + const_entry_inline_code = false; + const_entry_feedback = None; + } in (** ppedrot: seems legit to have obligations as local *) let constant = Declare.declare_constant obl.obl_name ~local:true (DefinitionEntry ce,IsProof Property) |