blob: 797146174d669358d136244635de1b8eadac8da2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
(* Not considering singleton template-polymorphic inductive types as
propositions for injection/inversion *)
(* This is also #4560 and #6273 *)
Inductive foo := foo_1.
Goal forall (a b : foo), Some a = Some b -> a = b.
Proof.
intros a b H.
inversion H.
reflexivity.
Qed.
(* Check that Prop is not concerned *)
Inductive bar : Prop := bar_1.
Goal
forall (a b : bar),
Some a = Some b ->
a = b.
Proof.
intros a b H.
inversion H.
Fail reflexivity.
Abort.
|