From 70af80aad166bc54e4bbc80dfc9427cfee32aae6 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 9 Dec 2008 21:40:22 +0000
Subject: About "apply in":

- Added "simple apply in" (cf wish 1917) + conversion and descent
  under conjunction + contraction of useless beta-redex in "apply in"
  + support for open terms.
- Did not solve the "problem" that "apply in" generates a let-in which
  is type-checked using a kernel conversion in the opposite side of what
  the proof indicated (hence leading to a potential unexpected penalty
  at Qed time).
- When applyng a sequence of lemmas, it would have been nice to allow
  temporary evars as intermediate steps but this was too long to implement.

Smoother API in tactics.mli for assert_by/assert_as/pose_proof.



git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11662 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/equality.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tactics/equality.ml')

diff --git a/tactics/equality.ml b/tactics/equality.ml
index e3914b8c51..eba3a119f2 100644
--- a/tactics/equality.ml
+++ b/tactics/equality.ml
@@ -272,7 +272,7 @@ let multi_replace clause c2 c1 unsafe try_prove_eq_opt gl =
     let e = build_coq_eq () in
     let sym = build_coq_sym_eq () in
     let eq = applist (e, [t1;c1;c2]) in
-    tclTHENS (assert_tac false Anonymous eq)
+    tclTHENS (assert_as false None eq)
       [onLastHyp (fun id -> 
 	tclTHEN 
 	  (tclTRY (general_multi_rewrite false false (inj_open (mkVar id),NoBindings) clause))
-- 
cgit v1.2.3