diff options
| author | Enrico Tassi | 2013-12-24 18:18:10 +0100 |
|---|---|---|
| committer | Enrico Tassi | 2013-12-24 18:23:41 +0100 |
| commit | 18c7a10341b462256b576542412db889d528465f (patch) | |
| tree | 3ccbccb2c94be46369fa5ebbdec11ba632c7e9fb /tactics | |
| 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 'tactics')
| -rw-r--r-- | tactics/leminv.ml | 1 | ||||
| -rw-r--r-- | tactics/rewrite.ml | 5 |
2 files changed, 4 insertions, 2 deletions
diff --git a/tactics/leminv.ml b/tactics/leminv.ml index 106205552d..7af7fcb025 100644 --- a/tactics/leminv.ml +++ b/tactics/leminv.ml @@ -236,6 +236,7 @@ let add_inversion_lemma name env sigma t sort dep inv_op = const_entry_type = None; const_entry_opaque = false; const_entry_inline_code = false; + const_entry_feedback = None; } in let _ = declare_constant name (DefinitionEntry entry, IsProof Lemma) in () diff --git a/tactics/rewrite.ml b/tactics/rewrite.ml index ca8ae67cfb..2f8e0e29fb 100644 --- a/tactics/rewrite.ml +++ b/tactics/rewrite.ml @@ -1541,8 +1541,9 @@ let declare_projection n instance_id r = 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 ignore(Declare.declare_constant n (Entries.DefinitionEntry cst, Decl_kinds.IsDefinition Decl_kinds.Definition)) let build_morphism_signature m = |