diff options
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/detyping.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/pretyping/detyping.ml b/pretyping/detyping.ml index 748901e29a..06ae24175c 100644 --- a/pretyping/detyping.ml +++ b/pretyping/detyping.ml @@ -243,7 +243,9 @@ let detype_case computable detype detype_eqn tenv avoid indsp st p k c bl = let eqnl = Array.to_list eqnv in let tag = try - if PrintingLet.active (indsp,consnargsl) then + if !Options.raw_print then + st + else if PrintingLet.active (indsp,consnargsl) then LetStyle else if PrintingIf.active (indsp,consnargsl) then IfStyle |