diff options
-rw-r--r-- | test-suite/failure/rewrite_in_goal.v | 3 | ||||
-rw-r--r-- | test-suite/failure/rewrite_in_hyp.v | 3 | ||||
-rw-r--r-- | test-suite/success/autorewritein.v | 12 |
3 files changed, 9 insertions, 9 deletions
diff --git a/test-suite/failure/rewrite_in_goal.v b/test-suite/failure/rewrite_in_goal.v new file mode 100644 index 000000000..c11a6237c --- /dev/null +++ b/test-suite/failure/rewrite_in_goal.v @@ -0,0 +1,3 @@ +Goal forall T1 T2 (H:T1=T2) (f:T1->Prop) (x:T1) , f x -> Type. + intros until x. + rewrite H in x. diff --git a/test-suite/failure/rewrite_in_hyp.v b/test-suite/failure/rewrite_in_hyp.v new file mode 100644 index 000000000..613d707c6 --- /dev/null +++ b/test-suite/failure/rewrite_in_hyp.v @@ -0,0 +1,3 @@ +Goal forall (T1 T2 : Type) (f:T1 -> Prop) (x:T1) (H:T1=T2), f x -> 0=1. + intros T1 T2 f x H fx. + rewrite H in x. diff --git a/test-suite/success/autorewritein.v b/test-suite/success/autorewritein.v index 2f7d86dae..68f2f7ce7 100644 --- a/test-suite/success/autorewritein.v +++ b/test-suite/success/autorewritein.v @@ -12,17 +12,11 @@ Proof. autorewrite with base0 in H using try (apply H; reflexivity). Qed. -Lemma ResAck1 : forall H:(Ack 2 2 = 7 -> False), H=H -> False. +Lemma ResAck1 : forall H:(Ack 2 2 = 7 -> False), True -> False. Proof. intros. - autorewrite with base0 in H using try (apply H1; reflexivity). -Qed. - -Lemma ResAck2 : forall H:(Ack 2 2 = 7 -> False), H=H -> False. -Proof. - intros. - autorewrite with base0 in *; - apply H1;reflexivity. + autorewrite with base0 in *. + apply H;reflexivity. Qed. |