blob: bcdc907b38893b289914da46c5c1c82b3eaab196 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
Require Import ssreflect.
(** Test the nonPropType interface and its application to prevent unwanted
instantiations in views. **)
Lemma raw_flip {T} (x y : T) : x = y -> y = x. Proof. by []. Qed.
Lemma flip {T : nonPropType} (x y : T) : x = y -> y = x. Proof. by []. Qed.
Lemma testSet : true = false -> True.
Proof.
Fail move/raw_flip.
have flip_true := @flip _ true.
(* flip_true : forall y : notProp bool, x = y -> y = x *)
simpl in flip_true.
(* flip_true : forall y : bool, x = y -> y = x *)
by move/flip.
Qed.
Lemma override (t1 t2 : True) : t1 = t2 -> True.
Proof.
Fail move/flip.
by move/(@flip (notProp True)).
Qed.
|
