diff options
author | ckeller <ckeller@users.noreply.github.com> | 2019-03-11 20:25:35 +0100 |
---|---|---|
committer | GitHub <noreply@github.com> | 2019-03-11 20:25:35 +0100 |
commit | a88e3b3b6ad01a9b85c828b9a1225732275affee (patch) | |
tree | acc3768695698a80867b4ce941ab4cb7b4b99d7a /src/SMT_terms.v | |
parent | 33010bfa6345549d8b9b0c06f44150b60d0c86e5 (diff) | |
download | smtcoq-a88e3b3b6ad01a9b85c828b9a1225732275affee.tar.gz smtcoq-a88e3b3b6ad01a9b85c828b9a1225732275affee.zip |
V8.8 (#42)
* Towards 8.8
* Towards 8.8
* Towards 8.8
* Towards 8.8
* Towards 8.8
* Towards 8.8
* Towards 8.8
* Organization structures
* 8.8 ok with standard coq
Diffstat (limited to 'src/SMT_terms.v')
-rw-r--r-- | src/SMT_terms.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/SMT_terms.v b/src/SMT_terms.v index c627bc2..169c761 100644 --- a/src/SMT_terms.v +++ b/src/SMT_terms.v @@ -416,7 +416,7 @@ Module Typ. | Tindex i => eqb_of_compdec (t_i.[i]).(te_compdec) | TZ => Z.eqb (* Zeq_bool *) | Tbool => Bool.eqb - | Tpositive => Peqb + | Tpositive => Pos.eqb | TBV n => (@BITVECTOR_LIST.bv_eq n) | TFArray ti te => i_eqb (TFArray ti te) end. @@ -1513,7 +1513,7 @@ Qed. | UO_xI => apply_unop Typ.Tpositive Typ.Tpositive xI | UO_Zpos => apply_unop Typ.Tpositive Typ.TZ Zpos | UO_Zneg => apply_unop Typ.Tpositive Typ.TZ Zneg - | UO_Zopp => apply_unop Typ.TZ Typ.TZ Zopp + | UO_Zopp => apply_unop Typ.TZ Typ.TZ Z.opp | UO_BVbitOf s n => apply_unop (Typ.TBV s) Typ.Tbool (BITVECTOR_LIST.bitOf n) | UO_BVnot s => apply_unop (Typ.TBV s) (Typ.TBV s) (@BITVECTOR_LIST.bv_not s) | UO_BVneg s => apply_unop (Typ.TBV s) (Typ.TBV s) (@BITVECTOR_LIST.bv_neg s) |