diff options
author | 2012-12-29 10:57:45 +0100 | |
---|---|---|
committer | 2012-12-29 10:57:45 +0100 | |
commit | 357d49cfb956380788efbf6d080ab00e678d29f7 (patch) | |
tree | 2b133eca4ef9b37eb9245db01db72493e5cbe19b /pretyping/detyping.ml | |
parent | eabf57d06ca1eafa762d7f31262e5515401eff55 (diff) | |
parent | bf12eb93f3f6a6a824a10878878fadd59745aae0 (diff) |
Merge tag 'upstream/8.4pl1dfsg' into experimental/master
Upstream version 8.4pl1dfsg
Diffstat (limited to 'pretyping/detyping.ml')
-rw-r--r-- | pretyping/detyping.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/pretyping/detyping.ml b/pretyping/detyping.ml index 69ff2af9..a74e4cb4 100644 --- a/pretyping/detyping.ml +++ b/pretyping/detyping.ml @@ -389,6 +389,8 @@ let rec detype (isgoal:bool) avoid env t = with _ -> GVar (dl, id)) | Sort s -> GSort (dl,detype_sort s) + | Cast (c1,REVERTcast,c2) when not !Flags.raw_print -> + detype isgoal avoid env c1 | Cast (c1,k,c2) -> GCast(dl,detype isgoal avoid env c1, CastConv (k, detype isgoal avoid env c2)) | Prod (na,ty,c) -> detype_binder isgoal BProd avoid env na ty c |