]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/components/ng_paramodulation/nCicBlob.ml
Added an implicit parameter to branch_tac to allow branching on a
[helm.git] / helm / software / components / ng_paramodulation / nCicBlob.ml
index 6c6e07101249747aa8180ec1f464b466d843fe10..c1c7a9071fdee01ed9ad69959782f7e73886ad25 100644 (file)
@@ -101,10 +101,11 @@ with type t = NCic.term and type input = NCic.term = struct
 
   let is_eq = function
     | Terms.Node [ Terms.Leaf eqt ; ty; l; r ] when eq eqP eqt ->
-        Some (ty,l,r)
+        Some (ty,l,r) 
+(*
     | Terms.Node [ Terms.Leaf eqt ; _; Terms.Node [Terms.Leaf eqt2 ; ty]; l; r]
        when eq equivalence_relation eqt && eq setoid_eq eqt2 ->
-        Some (ty,l,r)
+        Some (ty,l,r) *)
     | _ -> None
 
   let pp t =