diff options
| author | Chantal Keller <Chantal.Keller@lri.fr> | 2021-06-07 13:19:30 +0200 |
|---|---|---|
| committer | Chantal Keller <Chantal.Keller@lri.fr> | 2021-06-07 13:19:30 +0200 |
| commit | 4d521764d1062a10f108086cc1bde4ba62e16b08 (patch) | |
| tree | ced8a902851c50b28bf7b4432bd09860ef643fc9 /src/classes | |
| parent | 75f83354b9c9f0f8fd25d4faba6a6825625d5924 (diff) | |
| download | smtcoq-4d521764d1062a10f108086cc1bde4ba62e16b08.tar.gz smtcoq-4d521764d1062a10f108086cc1bde4ba62e16b08.zip | |
Port the Coq part
Diffstat (limited to 'src/classes')
| -rw-r--r-- | src/classes/SMT_classes.v | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/classes/SMT_classes.v b/src/classes/SMT_classes.v index 49729db..be16138 100644 --- a/src/classes/SMT_classes.v +++ b/src/classes/SMT_classes.v @@ -98,6 +98,8 @@ Class OrdType T := { lt_not_eq : forall x y : T, lt x y -> x <> y }. +#[export] Hint Resolve lt_not_eq lt_trans : typeclass_ordtype. + Global Instance StrictOrder_OrdType T `(OrdType T) : StrictOrder (lt : T -> T -> Prop). @@ -182,7 +184,7 @@ Proof. intros x y. destruct c as [TY [E HE] O C I]. unfold eqb_of_compdec. simpl. now rewrite HE. Qed. -Hint Resolve +#[export] Hint Resolve ord_of_compdec inh_of_compdec comp_of_compdec |