diff options
| author |  Matthieu Sozeau <mattam@mattam.org> | 2016-04-11 13:29:27 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <mattam@mattam.org> | 2016-06-16 18:21:08 +0200 |
| commit | 30d0a2333c1b701bddef35652009fb258f08153c (patch) | |
| tree | bff8c4efc979f669dde09593487790dfee9fd4af | |
| parent | af9605c7d6929eb3c7699ba2824dd00bf06877db (diff) | |
Compat with ocaml 4.01
| -rw-r--r-- | tactics/class_tactics.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tactics/class_tactics.ml b/tactics/class_tactics.ml index fea8189eb..fbaebdf15 100644 --- a/tactics/class_tactics.ml +++ b/tactics/class_tactics.ml @@ -205,7 +205,7 @@ let unify_resolve_newcl poly flags = if not (Evarconv.e_cumul env ~ts:flags.core_unify_flags.modulo_delta evdref cl.cl_concl concl) then Type_errors.error_actual_type env - Environ.{uj_val = term; uj_type = cl.cl_concl} + {Environ.uj_val = term; Environ.uj_type = cl.cl_concl} concl; !evdref in Sigma.here term (Sigma.Unsafe.of_evar_map sigma') } |