blob: a4fa544cd9bcc4c409c9404434055815a9304b14 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Axiom F : forall (b : bool), b = true ->
forall (i : unit), i = i -> True.
Goal True.
Proof.
unshelve (refine (F _ _ _ _)).
+ exact true.
+ exact tt.
+ exact (@eq_refl bool true).
+ exact (@eq_refl unit tt).
Qed.
(* This was failing in 8.6, because of ?a:nat being wrongly duplicated *)
Goal (forall a : nat, a = 0 -> True) -> True.
intros F.
unshelve (eapply (F _);clear F).
2:reflexivity.
Qed.
|