]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/components/content/notationPp.ml
- cic almost not used
[helm.git] / matita / components / content / notationPp.ml
index a101747df7371d46fb54a54b0d84823faa2b4eaf..30abf348eda3b10e45941f096e31b50e26f9b7d7 100644 (file)
@@ -154,8 +154,6 @@ let rec pp_term ?(pp_parens = true) t =
     | Ast.Num (num, _) -> num
     | Ast.Sort `Set -> "Set"
     | Ast.Sort `Prop -> "Prop"
-    | Ast.Sort (`Type _) -> "Type"
-    | Ast.Sort (`CProp _)-> "CProp"
     | Ast.Sort (`NType s)-> "Type[" ^ s ^ "]"
     | Ast.Sort (`NCProp s)-> "CProp[" ^ s ^ "]"
     | Ast.Symbol (name, _) -> "'" ^ name