X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=components%2Flibrary%2FcoercDb.ml;h=14ddf7c8631b5054aca10a8accc0268e9c12b05f;hb=42f2dc48b4fef5b404f406bf512d6a0cde35c067;hp=fae09622950467c001f8271e4baf646f83feba11;hpb=b9531998071f8b6fafd2e32fea28051d35002cb6;p=helm.git diff --git a/components/library/coercDb.ml b/components/library/coercDb.ml index fae096229..14ddf7c86 100644 --- a/components/library/coercDb.ml +++ b/components/library/coercDb.ml @@ -183,7 +183,6 @@ let add_coercion (src,tgt,u,saturations) = if List.exists (fun (x,_,_) -> UriManager.eq u x) l then let l' = List.map (fun (x,n,saturations') -> - assert (saturations=saturations'); if UriManager.eq u x then (x,n+1,saturations) else