diff options
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/term.ml | 1 | ||||
| -rw-r--r-- | kernel/term.mli | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/kernel/term.ml b/kernel/term.ml index d274857af5..49d7afa22e 100644 --- a/kernel/term.ml +++ b/kernel/term.ml @@ -261,6 +261,7 @@ let mkFix fix = Fix fix let mkCoFix cofix = CoFix cofix let kind_of_term c = c +let kind_of_term2 c = c (************************************************************************) (* kind_of_term = constructions as seen by the user *) diff --git a/kernel/term.mli b/kernel/term.mli index 2ab03e50fe..5d75df4bf2 100644 --- a/kernel/term.mli +++ b/kernel/term.mli @@ -208,6 +208,7 @@ type ('constr, 'types) kind_of_term = term *) val kind_of_term : constr -> (constr, types) kind_of_term +val kind_of_term2 : constr -> ((constr,types) kind_of_term,constr) kind_of_term (* Experimental *) type ('constr, 'types) kind_of_type = |