Adding the tactic "instantiate" (without argument), to force the

instantiation of evars in tacticals (cf r9985, r10294).


git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10356 85f007b7-540e-0410-9357-904b9bb8a0f7

2 files changed, 7 insertions, 4 deletions

diff --git a/proofs/refiner.ml b/proofs/refiner.ml
index 76fe0129f..7010153ba 100644
--- a/proofs/refiner.ml
+++ b/proofs/refiner.ml
@@ -223,9 +223,7 @@ let refiner = function
              ref = Some(Daimon,[])})
 
 
-let local_Constraints gl = refiner (Prim Change_evars) gl
-
-let norm_evar_tac = local_Constraints
+let norm_evar_tac gl = refiner (Prim Change_evars) gl
 
 let norm_evar_proof sigma pf =
   let nf_subgoal i sgl =
@@ -312,6 +310,9 @@ let idtac_valid = function
 (* [goal_goal_list : goal sigma -> goal list sigma] *)
 let goal_goal_list gls = {it=[gls.it];sigma=gls.sigma}
 
+(* forces propagation of evar constraints *)
+let tclNORMEVAR = norm_evar_tac
+
 (* identity tactic without any message *)
 let tclIDTAC gls = (goal_goal_list gls, idtac_valid)
 
diff --git a/proofs/refiner.mli b/proofs/refiner.mli
index 530a72a37..ba092e89e 100644
--- a/proofs/refiner.mli
+++ b/proofs/refiner.mli
@@ -47,7 +47,6 @@ val frontier : transformation_tactic
 val list_pf : proof_tree -> goal list
 val unTAC : tactic -> goal sigma -> proof_tree sigma
 
-val local_Constraints : tactic
 
 (* [frontier_map f n p] applies f on the n-th open subgoal of p and
    rebuilds proof-tree.
@@ -61,6 +60,9 @@ val frontier_mapi :
 
 (*s Tacticals. *)
 
+(* [tclNORMEVAR] forces propagation of evar constraints *)
+val tclNORMEVAR       : tactic
+
 (* [tclIDTAC] is the identity tactic without message printing*)
 val tclIDTAC          : tactic
 val tclIDTAC_MESSAGE  : Pp.std_ppcmds -> tactic