diff options
| author | msozeau | 2008-04-12 16:01:36 +0000 |
|---|---|---|
| committer | msozeau | 2008-04-12 16:01:36 +0000 |
| commit | 1ea4a8d26516af14670cc677a5a0fce04b90caf7 (patch) | |
| tree | f97ad5097f4a5ef3eb3c71e2affb646f22d3ec51 /contrib/recdef | |
| parent | df77da121b86c64a91ea729f39afc92f10676893 (diff) | |
Adding 'at' to rewrite, as it is already implemented in setoid_rewrite.
Uses setoid_rewrite even if rewriting with leibniz if there are
specified occurences, maybe a combination of pattern and rewrite could
be done instead. Correct spelling of occurrences.
Coq does not compile with this patch, the next one will make it compile
again.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10781 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib/recdef')
| -rw-r--r-- | contrib/recdef/recdef.ml4 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/contrib/recdef/recdef.ml4 b/contrib/recdef/recdef.ml4 index 8d9bfdbc51..afe7fc6d2b 100644 --- a/contrib/recdef/recdef.ml4 +++ b/contrib/recdef/recdef.ml4 @@ -335,7 +335,7 @@ let rec mk_intros_and_continue thin_intros (extra_eqn:bool) h_intros thin_intros; tclMAP - (fun eq -> tclTRY (Equality.general_rewrite_in true teq eq false)) + (fun eq -> tclTRY (Equality.general_rewrite_in true [] teq eq false)) (List.rev eqs); (fun g1 -> let ty_teq = pf_type_of g1 (mkVar teq) in @@ -495,7 +495,7 @@ let rec list_cond_rewrite k def pmax cond_eqs le_proofs = Nameops.out_name k_na,Nameops.out_name def_na in tclTHENS - (general_rewrite_bindings false + (general_rewrite_bindings false [] (mkVar eq, ExplicitBindings[dummy_loc, NamedHyp k_id, mkVar k; dummy_loc, NamedHyp def_id, mkVar def]) false) @@ -1169,7 +1169,7 @@ let rec introduce_all_values_eq cont_tac functional termine let _,_,t = destProd t_eq in let def_na,_,_ = destProd t in Nameops.out_name def_na in - observe_tac "rewrite heq" (general_rewrite_bindings false + observe_tac "rewrite heq" (general_rewrite_bindings false [] (mkVar heq2, ExplicitBindings[dummy_loc,NamedHyp def_id, f]) false) gls) @@ -1225,7 +1225,7 @@ let rec introduce_all_values_eq cont_tac functional termine f_S(mkVar pmax'); dummy_loc, NamedHyp def_id, f]) in - observe_tac "general_rewrite_bindings" ( (general_rewrite_bindings false + observe_tac "general_rewrite_bindings" ( (general_rewrite_bindings false [] c_b false)) g ) |