summaryrefslogtreecommitdiff
path: root/test-suite/bugs/opened/shouldnotfail/1811.v
blob: 037b7cb2ddd626cb9bc1379ecd387bfa4fc2949e (plain)
1
2
3
4
5
6
7
8
9
Require Export Bool.

Lemma neg2xor : forall b, xorb true b = negb b.
Proof. auto. Qed.

Goal forall b1 b2, (negb b1 = b2)  ->  xorb true b1 = b2.
Proof.
  intros b1 b2.
  rewrite neg2xor.