X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Ftests%2Fcoercions_propagation.ma;h=63c48e66b9d42267b3d3455cc855565b80527095;hb=213039eee2048bc1da423345c5c1e05a1e775f99;hp=ce8f2e2a7af943c4ef1ba0520bd45b5cd732a295;hpb=5ec87fab28597f651b2792081da2264504f2dbf1;p=helm.git diff --git a/helm/software/matita/tests/coercions_propagation.ma b/helm/software/matita/tests/coercions_propagation.ma index ce8f2e2a7..63c48e66b 100644 --- a/helm/software/matita/tests/coercions_propagation.ma +++ b/helm/software/matita/tests/coercions_propagation.ma @@ -16,7 +16,6 @@ set "baseuri" "cic:/matita/test/coercions_propagation/". include "logic/connectives.ma". include "nat/orders.ma". -alias num (instance 0) = "natural number". inductive sigma (A:Type) (P:A → Prop) : Type ≝ sigma_intro: ∀a:A. P a → sigma A P. @@ -33,7 +32,6 @@ definition eject ≝ λP.λc: ∃n:nat.P n. match c with [ sigma_intro w _ ⇒ w coercion cic:/matita/test/coercions_propagation/eject.con. alias num (instance 0) = "natural number". - theorem test: ∃n. 0 ≤ n. apply (S O : ∃n. 0 ≤ n). autobatch.