diff options
| -rw-r--r-- | tactics/equality.ml | 2 | ||||
| -rw-r--r-- | test-suite/success/rewrite.v | 12 |
2 files changed, 13 insertions, 1 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index b7a428e2aa..a9a869d8f7 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -93,7 +93,7 @@ let general_rewrite_bindings_clause cls lft2rgt (c,l) gl = (* Original code. In particular, [splay_prod] performs delta-reduction. *) let env = pf_env gl in let sigma = project gl in - let _,t = splay_prod env sigma t in + let _,t = splay_prod env sigma ctype in match match_with_equation t with | None -> if l = NoBindings diff --git a/test-suite/success/rewrite.v b/test-suite/success/rewrite.v index 9629b2132e..a11297ea90 100644 --- a/test-suite/success/rewrite.v +++ b/test-suite/success/rewrite.v @@ -17,3 +17,15 @@ intros n n' l l'. dependent rewrite (ax n n' l l'). split; reflexivity. Qed. + +(* Used to raise an anomaly instead of an error in 8.1 *) +(* Submitted by Y. Makarov *) + +Parameter N : Set. +Parameter E : N -> N -> Prop. + +Axiom e : forall (A : Set) (EA : A -> A -> Prop) (a : A), EA a a. + +Theorem th : forall x : N, E x x. +intro x. try rewrite e. +Abort. |