diff options
| author |  Emilio Jesus Gallego Arias <e+git@x80.org> | 2018-07-14 10:16:48 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2018-07-14 15:01:43 +0100 |
| commit | e431c10002ca93d1485a040e159e37be3d2b6f74 (patch) | |
| tree | 80d55861c968fe5fe6a4cc0d5c7c5f411230bda2 /kernel/retroknowledge.ml | |
| parent | f824657b2b0b42ff02d0c07337db1607e13f359f (diff) | |
[ltac] Remove unused functions / constructors.
Catched by compiling the ml files from ml4.
Diffstat (limited to 'kernel/retroknowledge.ml')
| -rw-r--r-- | kernel/retroknowledge.ml | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/kernel/retroknowledge.ml b/kernel/retroknowledge.ml index d76b05a8b..34f62defb 100644 --- a/kernel/retroknowledge.ml +++ b/kernel/retroknowledge.ml @@ -25,22 +25,6 @@ open Constr (* aliased type for clarity purpose*) type entry = Constr.t -(* [field]-s are the roles the kernel can learn of. *) -type nat_field = - | NatType - | NatPlus - | NatTimes - -type n_field = - | NPositive - | NType - | NTwice - | NTwicePlusOne - | NPhi - | NPhiInv - | NPlus - | NTimes - type int31_field = | Int31Bits | Int31Type @@ -69,9 +53,6 @@ type int31_field = | Int31Lxor type field = - (* | KEq - | KNat of nat_field - | KN of n_field *) | KInt31 of string*int31_field |