diff options
author | Abhishek Anand (@brixpro-home) <abhishek.anand.iitg@gmail.com> | 2017-01-22 11:59:22 -0500 |
---|---|---|
committer | Abhishek Anand (@brixpro-home) <abhishek.anand.iitg@gmail.com> | 2017-05-02 20:32:56 -0400 |
commit | dba083b267a2aede3654dcebaab0013d284d32c7 (patch) | |
tree | 05984bab22bae14ca67ac1eb461b12ae158653e7 /pretyping/detyping.ml | |
parent | 4bff930da2c029a66eaf5378e5abd2cc35554f8f (diff) |
applied the patch for printing types of let bindings by @herbelin
Diffstat (limited to 'pretyping/detyping.ml')
-rw-r--r-- | pretyping/detyping.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/detyping.ml b/pretyping/detyping.ml index 483e2b432..1eec85f45 100644 --- a/pretyping/detyping.ml +++ b/pretyping/detyping.ml @@ -695,7 +695,7 @@ and detype_binder (lax,isgoal as flags) bk avoid env sigma na body ty c = let c = detype (lax,false) avoid env sigma (Option.get body) in (* Heuristic: we display the type if in Prop *) let s = try Retyping.get_sort_family_of (snd env) sigma ty with _ when !Flags.in_debugger || !Flags.in_toplevel -> InType (* Can fail because of sigma missing in debugger *) in - let t = if s != InProp then None else Some (detype (lax,false) avoid env sigma ty) in + let t = if s != InProp && not !Flags.raw_print then None else Some (detype (lax,false) avoid env sigma ty) in GLetIn (dl, na', c, t, r) let detype_rel_context ?(lax=false) where avoid env sigma sign = |