test-suite/bugs/closed/shouldsucceed/1100.v


1
2
3
4
5
6
7
8
9
10
11
12

Require Import Setoid.

Parameter P : nat -> Prop.
Parameter Q : nat -> Prop.
Parameter PQ : forall n, P n <-> Q n.

Lemma PQ2 : forall n, P n -> Q n.
  intros.
  rewrite PQ in H.
  trivial.
Qed.