diff options
| author | Matthieu Sozeau | 2014-04-08 12:57:17 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-05-06 09:58:59 +0200 |
| commit | 4d779fe8ff9c2b81eddb671dc0e60d3743357ce5 (patch) | |
| tree | 01716d27a6fea100d8ee450a27cdfbec3791ca79 /toplevel/command.ml | |
| parent | 4cb7fe525a472928aee02d772458d28a2b71072a (diff) | |
Retype application of fix_proto to get the right universes in Program
Diffstat (limited to 'toplevel/command.ml')
| -rw-r--r-- | toplevel/command.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index 2d82b93523..6866bc69e2 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -905,7 +905,9 @@ let interp_recursive isfix fixl notations = if Flags.is_program_mode () then let sort = Retyping.get_type_of env !evdref t in let fixprot = - try mkApp (delayed_force fix_proto, [|sort; t|]) + try + let app = mkApp (delayed_force fix_proto, [|sort; t|]) in + Typing.solve_evars env evdref app with e when Errors.noncritical e -> t in (id,None,fixprot) :: env' |