1. new coercion(s) from CPropi to CProp

[helm.git] / helm / software / matita / contribs / formal_topology / overlap / cprop_connectives.ma

diff --git a/helm/software/matita/contribs/formal_topology/overlap/cprop_connectives.ma b/helm/software/matita/contribs/formal_topology/overlap/cprop_connectives.ma
index d6c7084b0f511eb92e293d97d80c747c5929a377..167c33317c8d4810e7cd0533e5b3aab7b0bf7b6f 100644 (file)
--- a/helm/software/matita/contribs/formal_topology/overlap/cprop_connectives.ma
+++ b/helm/software/matita/contribs/formal_topology/overlap/cprop_connectives.ma
@@ -31,6 +31,12 @@ coercion Type_of_Type3.
 definition CProp0 : Type1 := Type0.
 definition CProp1 : Type2 := Type1.
 definition CProp2 : Type3 := Type2.
+definition CProp_of_CProp0: CProp0 → CProp ≝ λx.x.
+definition CProp_of_CProp1: CProp1 → CProp ≝ λx.x.
+definition CProp_of_CProp2: CProp2 → CProp ≝ λx.x.
+coercion CProp_of_CProp0.
+coercion CProp_of_CProp1.
+coercion CProp_of_CProp2.
 
 inductive Or (A,B:CProp0) : CProp0 ≝
  | Left : A → Or A B