From a591f77721b3d4fd83afe222aa7cb0a7dbcc994e Mon Sep 17 00:00:00 2001
From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Tue, 13 Dec 2011 12:38:18 +0000
Subject: [PATCH] inject/eject replaced by mk_Sig/pi1.

---
 matita/matita/lib/basics/russell.ma | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

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 ?.
-- 
2.39.2