From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Mon, 21 Nov 2005 17:58:17 +0000 (+0000)
Subject: Invariant no longer true (since when?)
X-Git-Tag: V_0_7_2_3~15
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=87708967ed20000d7fb10ed04596a0c0c0ffafe1;p=helm.git

Invariant no longer true (since when?)
---

diff --git a/helm/ocaml/tactics/proofEngineStructuralRules.ml b/helm/ocaml/tactics/proofEngineStructuralRules.ml
index 2e8aa4049..8995fbbeb 100644
--- a/helm/ocaml/tactics/proofEngineStructuralRules.ml
+++ b/helm/ocaml/tactics/proofEngineStructuralRules.ml
@@ -118,8 +118,8 @@ let clear ~hyp =
                     Some (Cic.Name hyp',_) when hyp' = hyp -> 
                       (true, None::context)
                   | None -> (b, None::context)
-                  | Some (_,Cic.Def (_,Some _)) -> assert false
                   | Some (n,C.Decl t)
+                  | Some (n,Cic.Def (t,Some _))
                   | Some (n,C.Def (t,None)) ->
                       if b then
                          let _,_ =