diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-07-16 13:11:51 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-07-16 13:11:51 +0200 |
commit | ad5d90e30d52038c22a5315cbf84aa30aa021875 (patch) | |
tree | 80d55861c968fe5fe6a4cc0d5c7c5f411230bda2 /kernel/retroknowledge.ml | |
parent | f824657b2b0b42ff02d0c07337db1607e13f359f (diff) | |
parent | e431c10002ca93d1485a040e159e37be3d2b6f74 (diff) |
Merge PR #8066: [ltac] Remove unused functions.
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 |