]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/components/tactics/paramodulation/equality.ml
pretty proofs are back
[helm.git] / helm / software / components / tactics / paramodulation / equality.ml
index 3ac57e6fe63ed2285b06722d7e7dd04853cf298f..91ed61cd5ea9426b7e111029a1e68cf84625f784 100644 (file)
@@ -736,9 +736,7 @@ let build_goal_proof eq l initial ty se =
           cic, p))
     lets (letsno-1,initial)
   in
-(*    canonical (contextualize_rewrites proof (CicSubstitution.lift letsno ty)),
- *    *)
-proof,
+   canonical (contextualize_rewrites proof (CicSubstitution.lift letsno ty)),
    se 
 ;;