aboutsummaryrefslogtreecommitdiffhomepage
path: root/pretyping/pretyping.ml
diff options
context:
space:
mode:
Diffstat (limited to 'pretyping/pretyping.ml')
-rw-r--r--pretyping/pretyping.ml6
1 files changed, 4 insertions, 2 deletions
diff --git a/pretyping/pretyping.ml b/pretyping/pretyping.ml
index 1854e7eeb..4ce29088d 100644
--- a/pretyping/pretyping.ml
+++ b/pretyping/pretyping.ml
@@ -509,8 +509,10 @@ let ise_resolve_nocheck sigma metamap env c =
let ise_resolve1 is_ass sigma env c =
- if is_ass then body_of_type (ise_resolve_type true sigma [] env c)
- else (ise_resolve true sigma [] env c).uj_val
+ if is_ass then
+ body_of_type (ise_resolve_type true sigma [] env c)
+ else
+ (ise_resolve true sigma [] env c).uj_val
(* Keeping universe constraints *)
(*