diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-09-17 20:24:36 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-09-17 20:29:51 +0200 |
| commit | f1a561d847e207433a0ec3e6333798dfa19e4a0c (patch) | |
| tree | 971b4b852a4f9363ba82a27ace74a3e1c1fce151 /test-suite/success/eqdecide.v | |
| parent | e6eef565639fb3840dd235eb675ece6e4dbeb082 (diff) | |
Further "decide equality" tests on demand of Jason.
Diffstat (limited to 'test-suite/success/eqdecide.v')
| -rw-r--r-- | test-suite/success/eqdecide.v | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test-suite/success/eqdecide.v b/test-suite/success/eqdecide.v index 1f6af0dc4..724e2998e 100644 --- a/test-suite/success/eqdecide.v +++ b/test-suite/success/eqdecide.v @@ -14,6 +14,18 @@ Lemma lem1 : forall x y : T, {x = y} + {x <> y}. decide equality. Qed. +Lemma lem1' : forall x y : T, x = y \/ x <> y. + decide equality. +Qed. + +Lemma lem1'' : forall x y : T, {x <> y} + {x = y}. + decide equality. +Qed. + +Lemma lem1''' : forall x y : T, x <> y \/ x = y. + decide equality. +Qed. + Lemma lem2 : forall x y : T, {x = y} + {x <> y}. intros x y. decide equality. |