]> matita.cs.unibo.it Git - helm.git/commitdiff
Keeping Implicit for refinement (instead of transforming them to Metas:
authorAndrea Asperti <andrea.asperti@unibo.it>
Mon, 18 Jan 2010 07:25:27 +0000 (07:25 +0000)
committerAndrea Asperti <andrea.asperti@unibo.it>
Mon, 18 Jan 2010 07:25:27 +0000 (07:25 +0000)
context bug).

helm/software/components/ng_paramodulation/nCicParamod.ml

index 739e76f05ea3dc55080075a98b75a4c02118cf95..b3ab4d5047194c236b362460439cfbc79e21ad41 100644 (file)
@@ -35,6 +35,7 @@ let readback rdb metasenv subst context (bag,i,fo_subst,l) =
   let proofterm,prooftype = NCicProof.mk_proof bag i fo_subst l in
   (* debug (lazy (Printf.sprintf "Got proof term in %fs"
                     (Unix.gettimeofday() -. stamp))); *)
+(*
   let metasenv, proofterm = 
     let rec aux k metasenv = function
       | NCic.Meta _ as t -> metasenv, t
@@ -47,7 +48,7 @@ let readback rdb metasenv subst context (bag,i,fo_subst,l) =
           (fun _ k -> k+1) k aux metasenv t
     in
       aux 0 metasenv proofterm
-  in 
+  in *)
   debug (lazy (NCicPp.ppterm ~metasenv ~subst ~context proofterm));
 (*
   let stamp = Unix.gettimeofday () in