Invariant no longer true (since when?)

diff --git a/helm/ocaml/tactics/proofEngineStructuralRules.ml b/helm/ocaml/tactics/proofEngineStructuralRules.ml
index 2e8aa404930f54a58f85810cd165ddaabc767c04..8995fbbeb8443ebed4cac5fd963b4b304483c7a7 100644 (file)
--- 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 _,_ =