diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2018-03-07 11:13:21 +0100 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2018-03-07 11:13:21 +0100 |
commit | ca1310d887204f467aae545a11a8d28e763ff24a (patch) | |
tree | aba2032d745831cafec1262ba20fe2a6b7a824a6 | |
parent | 5a2e1b95411376206f23046991e1ae5e8a259f01 (diff) | |
parent | 5c0f5b7d8af44bfed1d0bad9d0afc2a56f4afa00 (diff) |
Merge PR #6932: [stdlib] Do not use deprecated notations
-rw-r--r-- | plugins/extraction/ExtrOcamlNatBigInt.v | 2 | ||||
-rw-r--r-- | plugins/extraction/ExtrOcamlNatInt.v | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/plugins/extraction/ExtrOcamlNatBigInt.v b/plugins/extraction/ExtrOcamlNatBigInt.v index 264b48a08..c403f7c5a 100644 --- a/plugins/extraction/ExtrOcamlNatBigInt.v +++ b/plugins/extraction/ExtrOcamlNatBigInt.v @@ -46,7 +46,7 @@ Extract Constant EqNat.eq_nat_decide => "Big.eq". Extract Constant Peano_dec.eq_nat_dec => "Big.eq". -Extract Constant Compare_dec.nat_compare => +Extract Constant Nat.compare => "Big.compare_case Eq Lt Gt". Extract Constant Compare_dec.leb => "Big.le". diff --git a/plugins/extraction/ExtrOcamlNatInt.v b/plugins/extraction/ExtrOcamlNatInt.v index 35af71417..a2f809a0c 100644 --- a/plugins/extraction/ExtrOcamlNatInt.v +++ b/plugins/extraction/ExtrOcamlNatInt.v @@ -59,7 +59,7 @@ Extract Inlined Constant EqNat.eq_nat_decide => "(=)". Extract Inlined Constant Peano_dec.eq_nat_dec => "(=)". -Extract Constant Compare_dec.nat_compare => +Extract Constant Nat.compare => "fun n m -> if n=m then Eq else if n<m then Lt else Gt". Extract Inlined Constant Compare_dec.leb => "(<=)". Extract Inlined Constant Compare_dec.le_lt_dec => "(<=)". |