blob: 979a1cdc41f9249c664beaf3aad17620d7afde16 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
(**
* Efficient (but uncertified) extraction of usual [nat] functions
* into equivalent versions in Haskell's Prelude that are defined
* for any [Num] typeclass instances. Useful in combination with
* [Extract Inductive nat] that maps [nat] onto a Haskell type that
* implements [Num].
*)
Require Import Arith.
Require Import EqNat.
Extract Inlined Constant Nat.add => "(Prelude.+)".
Extract Inlined Constant Nat.mul => "(Prelude.*)".
Extract Inlined Constant Nat.div => "Prelude.div".
Extract Inlined Constant Nat.max => "Prelude.max".
Extract Inlined Constant Nat.min => "Prelude.min".
Extract Inlined Constant Init.Nat.add => "(Prelude.+)".
Extract Inlined Constant Init.Nat.mul => "(Prelude.*)".
Extract Inlined Constant Compare_dec.lt_dec => "(Prelude.<)".
Extract Inlined Constant Compare_dec.leb => "(Prelude.<=)".
Extract Inlined Constant Compare_dec.le_lt_dec => "(Prelude.<=)".
Extract Inlined Constant EqNat.beq_nat => "(Prelude.==)".
Extract Inlined Constant EqNat.eq_nat_decide => "(Prelude.==)".
Extract Inlined Constant Peano_dec.eq_nat_dec => "(Prelude.==)".
Extract Constant pred => "(\n -> Prelude.max 0 (Prelude.pred n))".
Extract Constant minus => "(\n m -> Prelude.max 0 (n Prelude.- m))".
|
