diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2016-09-13 22:40:16 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-03-03 09:51:33 +0100 |
| commit | 859a9666923e657add7e972762af29a1872cc842 (patch) | |
| tree | 46e87bb6e293bb700590934fa20168dca939a7a1 /theories/Init/Datatypes.v | |
| parent | d8f42feb4f4e6c4e062678e256499e03454c7ab2 (diff) | |
A couple of other useful properties about compare_cont.
Don't know if compare_cont is very useful to use, but, at least, these
extensions make sense.
Diffstat (limited to 'theories/Init/Datatypes.v')
| -rw-r--r-- | theories/Init/Datatypes.v | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/theories/Init/Datatypes.v b/theories/Init/Datatypes.v index 4e3f2e80f..11d80dbc3 100644 --- a/theories/Init/Datatypes.v +++ b/theories/Init/Datatypes.v @@ -262,6 +262,11 @@ Inductive comparison : Set := | Lt : comparison | Gt : comparison. +Lemma comparison_eq_stable : forall c c' : comparison, ~~ c = c' -> c = c'. +Proof. + destruct c, c'; intro H; reflexivity || destruct H; discriminate. +Qed. + Definition CompOpp (r:comparison) := match r with | Eq => Eq |