diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2016-09-15 17:31:51 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-08-01 17:54:42 +0200 |
| commit | a92b0e3abb476743f6f12ce828a0d82eb3c98e98 (patch) | |
| tree | 3a3284a60fff9ec15e876dba665969cd1bd24e27 /pretyping/pretyping.ml | |
| parent | 533c4f693a557c81a13edc6e624ccaa9578c0ddc (diff) | |
Move type_uconstr to Tacinterp.
Diffstat (limited to 'pretyping/pretyping.ml')
| -rw-r--r-- | pretyping/pretyping.ml | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/pretyping/pretyping.ml b/pretyping/pretyping.ml index 156e61ab6..7362b57fe 100644 --- a/pretyping/pretyping.ml +++ b/pretyping/pretyping.ml @@ -1203,27 +1203,6 @@ let understand_ltac flags env sigma lvar kind c = let (sigma, c) = ise_pretype_gen flags env sigma lvar kind c in (sigma, c) -let constr_flags = { - use_typeclasses = true; - solve_unification_constraints = true; - use_hook = None; - fail_evar = true; - expand_evars = true } - -(* Fully evaluate an untyped constr *) -let type_uconstr ?(flags = constr_flags) - ?(expected_type = WithoutTypeConstraint) ist c = - begin fun env sigma -> - let { closure; term } = c in - let vars = { - ltac_constrs = closure.typed; - ltac_uconstrs = closure.untyped; - ltac_idents = closure.idents; - ltac_genargs = Id.Map.empty; - } in - understand_ltac flags env sigma vars expected_type term - end - let pretype k0 resolve_tc typcon env evdref lvar t = pretype k0 resolve_tc typcon (make_env env !evdref) evdref lvar t |