From 0e189432da864d7e31c9d6bb2355f349308a3d0a Mon Sep 17 00:00:00 2001
From: msozeau
Date: Sun, 7 Sep 2008 00:05:39 +0000
Subject: 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
---
 pretyping/evd.ml  | 4 +++-
 pretyping/evd.mli | 7 ++++++-
 2 files changed, 9 insertions(+), 2 deletions(-)

(limited to 'pretyping')

diff --git a/pretyping/evd.ml b/pretyping/evd.ml
index 270dac01a9..b29afc0cb3 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 cb74290022..38db90dad4 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
-- 
cgit v1.2.3