From bf578ad5e2f63b7a36aeaef5e0597101db1bd24a Mon Sep 17 00:00:00 2001 From: gregoire Date: Fri, 2 Dec 2005 10:01:15 +0000 Subject: Changement des named_context Ajout de cast indiquant au kernel la strategie a suivre Resolution du bug sur les coinductifs git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7639 85f007b7-540e-0410-9357-904b9bb8a0f7 --- tactics/tacinterp.ml | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'tactics/tacinterp.ml') diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 5948da2b8..177c3ffd8 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1191,7 +1191,9 @@ open Evd let solvable_by_tactic env evi (ev,args) src = match (!implicit_tactic, src) with | Some tac, (ImplicitArg _ | QuestionMark) - when evi.evar_hyps = Environ.named_context env -> + when + Environ.named_context_of_val evi.evar_hyps = + Environ.named_context env -> let id = id_of_string "H" in start_proof id IsLocal evi.evar_hyps evi.evar_concl (fun _ _ -> ()); begin @@ -1510,7 +1512,7 @@ and interp_letin ist gl = function with Not_found -> try let t = tactic_of_value v in - let ndc = Environ.named_context env in + let ndc = Environ.named_context_val env in start_proof id IsLocal ndc typ (fun _ _ -> ()); by t; let (_,({const_entry_body = pft},_,_)) = cook_proof () in @@ -1520,7 +1522,7 @@ and interp_letin ist gl = function delete_proof (dummy_loc,id); errorlabstrm "Tacinterp.interp_letin" (str "Term or fully applied tactic expected in Let") - in (id,VConstr (mkCast (csr,typ)))::(interp_letin ist gl tl) + in (id,VConstr (mkCast (csr,DEFAULTcast, typ)))::(interp_letin ist gl tl) (* Interprets the Match Context expressions *) and interp_match_context ist g lz lr lmr = -- cgit v1.2.3