diff options
| author | Gaëtan Gilbert | 2020-02-06 17:18:36 +0100 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-02-06 21:17:56 +0100 |
| commit | b6f372dd4eba2a63791aae899fbae7b8aa3aa499 (patch) | |
| tree | b1567a619bed715a54bd448a24ac3787e0e5bc3c | |
| parent | 38e1e823cf5329762e97902a6ded54c95a5a5c61 (diff) | |
unsafe_type_of -> get_type_of in ComProgramFixpoint.build_wellfounded
We typecheck it literally the previous line...
| -rw-r--r-- | vernac/comProgramFixpoint.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/comProgramFixpoint.ml b/vernac/comProgramFixpoint.ml index d48e2139d1..84f8578ad4 100644 --- a/vernac/comProgramFixpoint.ml +++ b/vernac/comProgramFixpoint.ml @@ -127,7 +127,7 @@ let build_wellfounded (recname,pl,bl,arityc,body) poly r measure notation = let binders = letbinders @ [arg] in let binders_env = push_rel_context binders_rel env in let sigma, (rel, _) = interp_constr_evars_impls ~program_mode:true env sigma r in - let relty = Typing.unsafe_type_of env sigma rel in + let relty = Retyping.get_type_of env sigma rel in let relargty = let error () = user_err ?loc:(constr_loc r) |