X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fng_paramodulation%2FnCicBlob.ml;h=9ca541a65ca7afa4a48cfad6c7ee594cc9a5cbf0;hb=e082eec771e24842f29a01fa258f7c80bc2db599;hp=b1f2cfa6f2d9cb4774a56c3e89862209759b8983;hpb=2815c74c03f38089d0e27aba00e2280223b0f76f;p=helm.git diff --git a/matita/components/ng_paramodulation/nCicBlob.ml b/matita/components/ng_paramodulation/nCicBlob.ml index b1f2cfa6f..9ca541a65 100644 --- a/matita/components/ng_paramodulation/nCicBlob.ml +++ b/matita/components/ng_paramodulation/nCicBlob.ml @@ -80,7 +80,7 @@ with type t = NCic.term and type input = NCic.term = struct | ( NCic.Meta _ | NCic.Appl _ ), NCic.Const _ -> 1 | NCic.Appl _, NCic.Meta _ -> ~-1 | NCic.Meta _, NCic.Appl _ -> 1 - | _ -> Pervasives.compare x y + | _ -> Stdlib.compare x y (* was assert false, but why? *) ;;