diff options
| author |  msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-09-07 00:05:39 +0000 |
|---|---|---|
| committer | msozeau <msozeau@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2008-09-07 00:05:39 +0000 |
| commit | 0e189432da864d7e31c9d6bb2355f349308a3d0a (patch) | |
| tree | 81bb046903cda8d25175352703a3fa7bcec7cca0 /pretyping | |
| parent | 7449a31bf5413a2607e2c1c388f4aeec56a59010 (diff) | |
Better handling of the opacity of proof obligations, add the possibility of
overriding the default tactic when adding a definition.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11373 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/evd.ml | 4 | ||||
| -rw-r--r-- | pretyping/evd.mli | 7 |
2 files changed, 9 insertions, 2 deletions
diff --git a/pretyping/evd.ml b/pretyping/evd.ml index 270dac01a..b29afc0cb 100644 --- a/pretyping/evd.ml +++ b/pretyping/evd.ml @@ -400,10 +400,12 @@ let metamap_to_list m = (*************************) (* Unification state *) +type obligation_definition_status = Define of bool | Expand + type hole_kind = | ImplicitArg of global_reference * (int * identifier option) | BinderType of name - | QuestionMark of bool + | QuestionMark of obligation_definition_status | CasesType | InternalHole | TomatchTypeParameter of inductive * int diff --git a/pretyping/evd.mli b/pretyping/evd.mli index cb7429002..38db90dad 100644 --- a/pretyping/evd.mli +++ b/pretyping/evd.mli @@ -166,11 +166,16 @@ val empty_evar_defs : evar_defs val evars_of : evar_defs -> evar_map val evars_reset_evd : evar_map -> evar_defs -> evar_defs +(* Should the obligation be defined (opaque or transparent (default)) or + defined transparent and expanded in the term? *) + +type obligation_definition_status = Define of bool | Expand + (* Evars *) type hole_kind = | ImplicitArg of global_reference * (int * identifier option) | BinderType of name - | QuestionMark of bool (* Can it be turned into an obligation ? *) + | QuestionMark of obligation_definition_status | CasesType | InternalHole | TomatchTypeParameter of inductive * int |