]> matita.cs.unibo.it Git - helm.git/commitdiff
Bug fixed: wrong default pattern for generalize.
authorClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Sun, 8 Jun 2008 14:00:37 +0000 (14:00 +0000)
committerClaudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Sun, 8 Jun 2008 14:00:37 +0000 (14:00 +0000)
helm/software/components/tactics/primitiveTactics.ml
helm/software/components/tactics/tactics.mli

index 7014a59417ceb21743aaa073ef17526a74528df3..7b58517f6883af1927618721852bbd387a0ef75b 100644 (file)
@@ -618,7 +618,7 @@ let generalize_tac
  =
   let module PET = ProofEngineTypes in
   let generalize_tac mk_fresh_name_callback
-       ~pattern:(term,hyps_pat,concl_pat) status
+       ~pattern:(term,hyps_pat,_) status
   =
    if hyps_pat <> [] then raise GeneralizationInHypothesesNotImplementedYet;
    let (proof, goal) = status in
@@ -743,7 +743,7 @@ let generalize_pattern_tac pattern =
     List.map
      (fun id ->
        let rel,_ = ProofEngineHelpers.find_hyp id context in
-        id,(Some (PET.const_lazy_term rel), [], None)
+        id,(Some (PET.const_lazy_term rel), [], Some (ProofEngineTypes.hole))
      ) generalize_hyps in
    let tactics =
     List.map
index c75f183e45a48821c7d6b9067a8227be21d85b67..08b32e5714ccb2e4e49a09c13d02cb7e6beaed11 100644 (file)
@@ -1,4 +1,4 @@
-(* GENERATED FILE, DO NOT EDIT. STAMP:Sat Jun  7 20:09:50 CEST 2008 *)
+(* GENERATED FILE, DO NOT EDIT. STAMP:Sun Jun  8 15:54:21 CEST 2008 *)
 val absurd : term:Cic.term -> ProofEngineTypes.tactic
 val apply : term:Cic.term -> ProofEngineTypes.tactic
 val applyS :