diff options
| author | herbelin | 2005-09-08 12:24:35 +0000 |
|---|---|---|
| committer | herbelin | 2005-09-08 12:24:35 +0000 |
| commit | 83407b72d17ec5b84ef5830a32288313fbfb9bd6 (patch) | |
| tree | 613ab48006d54b4b1cfbbfa2602baa6f49d20f95 | |
| parent | b6ab8f59bf943475bcd31c1381e4395beaecb220 (diff) | |
Réparation bug #1004; nettoyage
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7351 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | tactics/equality.ml | 4 | ||||
| -rw-r--r-- | tactics/equality.mli | 2 | ||||
| -rw-r--r-- | tactics/inv.ml | 3 |
3 files changed, 1 insertions, 8 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index 30a01d6a98..0ef96e5fef 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -172,10 +172,6 @@ let build_rect eq = (*********** List of constructions depending of the initial state *) -let find_eq_pattern aritysort sort = - (* "eq" now accept arguments in Type and elimination to Type *) - Coqlib.build_coq_eq () - (* [find_positions t1 t2] will find the positions in the two terms which are suitable for diff --git a/tactics/equality.mli b/tactics/equality.mli index 4afdfe757c..fc7c3828ea 100644 --- a/tactics/equality.mli +++ b/tactics/equality.mli @@ -24,8 +24,6 @@ open Tacexpr open Rawterm (*i*) -val find_eq_pattern : sorts -> sorts -> constr - val general_rewrite_bindings : bool -> constr with_bindings -> tactic val general_rewrite : bool -> constr -> tactic diff --git a/tactics/inv.ml b/tactics/inv.ml index 4609c360ee..75cb667783 100644 --- a/tactics/inv.ml +++ b/tactics/inv.ml @@ -134,9 +134,8 @@ let make_inv_predicate env sigma indf realargs id status concl = else make_iterated_tuple env' sigma ai (xi,ti) in - let type_type_rhs = get_sort_of env sigma (type_of env sigma rhs) in let sort = get_sort_of env sigma concl in - let eq_term = find_eq_pattern type_type_rhs sort in + let eq_term = Coqlib.build_coq_eq () in let eqn = applist (eq_term ,[eqnty;lhs;rhs]) in build_concl ((Anonymous,lift n eqn)::eqns) (n+1) restlist in |