Matitaweb: large commit porting to the new Matita 0.95 syntax.

[helm.git] / matitaB / components / ng_kernel / nCicPp.ml

diff --git a/matitaB/components/ng_kernel/nCicPp.ml b/matitaB/components/ng_kernel/nCicPp.ml
index 80eb372aeec1dace6d1622ebf9b83e16fcf81e38..d19914ab4166bf423a6cee37caf689a75f414fdb 100644 (file)
--- a/matitaB/components/ng_kernel/nCicPp.ml
+++ b/matitaB/components/ng_kernel/nCicPp.ml
@@ -280,6 +280,7 @@ let string_of_pragma = function
   | `Elim _sort -> "Elim _"
   | `Projection -> "Projection"
   | `InversionPrinciple -> "InversionPrinciple"
+  | `DiscriminationPrinciple -> "DiscriminationPrinciple"
   | `Variant -> "Variant"
   | `Local -> "Local"
   | `Regular -> "Regular"