From: Claudio Sacerdoti Coen Date: Tue, 13 Dec 2011 12:38:18 +0000 (+0000) Subject: inject/eject replaced by mk_Sig/pi1. X-Git-Tag: make_still_working~2010 X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=a591f77721b3d4fd83afe222aa7cb0a7dbcc994e;p=helm.git inject/eject replaced by mk_Sig/pi1. --- diff --git a/matita/matita/lib/basics/russell.ma b/matita/matita/lib/basics/russell.ma index 314649af6..059e024f9 100644 --- a/matita/matita/lib/basics/russell.ma +++ b/matita/matita/lib/basics/russell.ma @@ -12,8 +12,5 @@ include "basics/jmeq.ma". include "basics/types.ma". -definition inject : ∀A.∀P:A → Prop.∀a.∀p:P a.Σx:A.P x ≝ λA,P,a,p. mk_Sig … a p. -definition eject : ∀A.∀P: A → Prop.(Σx:A.P x) → A ≝ λA,P,c.pi1 … c. - -coercion inject nocomposites: ∀A.∀P:A → Prop.∀a.∀p:P a.Σx:A.P x ≝ inject on a:? to Σx:?.?. -coercion eject nocomposites: ∀A.∀P:A → Prop.∀c:Σx:A.P x.A ≝ eject on _c:Σx:?.? to ?. +coercion inject nocomposites: ∀A.∀P:A → Type[0].∀a.∀p:P a.Σx:A.P x ≝ λA,P,a,p. mk_Sig … a p on a:? to Σx:?.?. +coercion eject nocomposites: ∀A.∀P:A → Type[0].∀c:Σx:A.P x.A ≝ λA,P,c. pi1 … c on _c:Σx:?.? to ?.