diff options
Diffstat (limited to 'kernel/term.ml')
| -rw-r--r-- | kernel/term.ml | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/kernel/term.ml b/kernel/term.ml index 508d9b81a..3adfa5e37 100644 --- a/kernel/term.ml +++ b/kernel/term.ml @@ -679,10 +679,3 @@ let kind_of_type t = match kind_of_term t with | Proj _ | Case _ | Fix _ | CoFix _ | Ind _) -> AtomicType (t,[||]) | (Lambda _ | Construct _) -> failwith "Not a type" - -(* This is not dead code, it is there to have a constr printer available - * everywhere *) -let print_val, print_hook = - Hook.make ~default:(fun x -> Pp.str"constr printer not installed") () -let print t = Hook.get print_val t - |