diff options
Diffstat (limited to 'kernel/typeops.ml')
| -rw-r--r-- | kernel/typeops.ml | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/kernel/typeops.ml b/kernel/typeops.ml index 4606734fe..6da58adbc 100644 --- a/kernel/typeops.ml +++ b/kernel/typeops.ml @@ -477,3 +477,10 @@ let infer_local_decls env decls = push_rel d env, add_rel_decl d l, Constraint.union cst1 cst2 | [] -> env, empty_rel_context, Constraint.empty in inferec env decls + +(* Exported typing functions *) + +let typing env c = + let (j,cst) = infer env c in + let _ = add_constraints cst env in + j |