added mactions, the three can now be collapsed to fit the screen

[helm.git] / helm / software / matita / library / Q / frac.ma

diff --git a/helm/software/matita/library/Q/frac.ma b/helm/software/matita/library/Q/frac.ma
index e4a2fc566408232e58f32a1d6d3c5ef854bce93b..9ce49360496d4e3b02d641effccacbc9e6833deb 100644 (file)
--- a/helm/software/matita/library/Q/frac.ma
+++ b/helm/software/matita/library/Q/frac.ma
@@ -62,9 +62,14 @@ match q with
 ].
 *)
 
+alias id "numeratorQ" = "cic:/matita/Q/q/q/numeratorQ.con".
+alias id "nat" = "cic:/matita/nat/nat/nat.ind#xpointer(1/1)".
+alias id "defactorize" = "cic:/matita/nat/factorization/defactorize.con".
+alias id "Q" = "cic:/matita/Q/q/q/Q.ind#xpointer(1/1)".
 definition numQ:Q \to nat \def
 \lambda q. defactorize (numeratorQ q).
 
+alias id "Qinv" = "cic:/matita/Q/q/qinv/Qinv.con".
 definition denomQ:Q \to nat \def
 \lambda q. defactorize (numeratorQ (Qinv q)).
 
@@ -104,6 +109,8 @@ elim r
   ]
 qed.*)
 
+alias id "Qpos" = "cic:/matita/Q/q/q/Q.ind#xpointer(1/1/2)".
+alias id "OQ" = "cic:/matita/Q/q/q/Q.ind#xpointer(1/1/1)".
 definition Qabs:Q \to Q \def \lambda q.
 match q with
 [OQ \Rightarrow OQ