diff options
Diffstat (limited to 'printing/printer.ml')
| -rw-r--r-- | printing/printer.ml | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/printing/printer.ml b/printing/printer.ml index 77423d32a7..a6c7c5ca1f 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -268,13 +268,7 @@ let pr_compacted_decl env sigma decl = hov 0 (pids ++ pbody ++ ptyp) let pr_named_decl env sigma decl = - let decl = match decl with - | NamedDecl.LocalAssum (id, t) -> - CompactedDecl.LocalAssum ([id], t) - | NamedDecl.LocalDef (id,c,t) -> - CompactedDecl.LocalDef ([id],c,t) - in - pr_compacted_decl env sigma decl + decl |> CompactedDecl.of_named_decl |> pr_compacted_decl env sigma let pr_rel_decl env sigma decl = let na = RelDecl.get_name decl in |