X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Ftactics%2FvariousTactics.ml;h=e2003f48d4ab1b2b437393245b5b3aa8d9fa4476;hb=249d79bebff886846fbab65cc079623d90684baf;hp=73309c43ecfb387cf2f901700c52461f26ad0b45;hpb=fa2c122dc2d20e0d8b473bef9128464c3477d419;p=helm.git

diff --git a/helm/ocaml/tactics/variousTactics.ml b/helm/ocaml/tactics/variousTactics.ml
index 73309c43e..e2003f48d 100644
--- a/helm/ocaml/tactics/variousTactics.ml
+++ b/helm/ocaml/tactics/variousTactics.ml
@@ -68,10 +68,6 @@ exception TheSelectedTermsMustLiveInTheGoalContext
 exception AllSelectedTermsMustBeConvertible;;
 exception GeneralizationInHypothesesNotImplementedYet;;
 
-(* serve una funzione che cerchi nel ty dal basso a partire da term, i lambda
-e li aggiunga nel context, poi si conta la lunghezza di questo nuovo
-contesto e si lifta di tot... COSA SIGNIFICA TUTTO CIO'?????? *)
-
 let generalize_tac 
  ?(mk_fresh_name_callback = FreshNamesGenerator.mk_fresh_name ~subst:[])
  pattern
@@ -89,7 +85,6 @@ let generalize_tac
     let (_,context,ty) as conjecture = CicUtil.lookup_meta goal metasenv in
     let selected_hyps,terms_with_context =
      ProofEngineHelpers.select ~metasenv ~conjecture ~pattern in
-    assert (selected_hyps = []);
     let typ,term =
      match terms_with_context, term with
         [], None ->