X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2FQ%2FQaxioms.ma;h=d527d657819656f3544b43decbc46343a1f5ecbd;hb=4dc47c9675ffd5fa50296ffaa9b5997501518c98;hp=6cf6b6994992d0cbdf7feda41d4cd892df836b22;hpb=962891404ac84c5f91425b89611ac9d8eca13f46;p=helm.git

diff --git a/helm/software/matita/library/Q/Qaxioms.ma b/helm/software/matita/library/Q/Qaxioms.ma
index 6cf6b6994..d527d6578 100644
--- a/helm/software/matita/library/Q/Qaxioms.ma
+++ b/helm/software/matita/library/Q/Qaxioms.ma
@@ -12,8 +12,6 @@
 (*                                                                        *)
 (**************************************************************************)
 
-set "baseuri" "cic:/matita/Q/Qaxioms".
-
 include "Z/compare.ma".
 include "Z/times.ma".
 include "nat/iteration2.ma".
@@ -65,7 +63,7 @@ axiom frac_Qinv1: \forall a,b:nat.Qinv(frac a b) = frac b a.
 axiom frac_Qinv2: \forall a,b:nat.Qinv(frac (Zopp a) b) = frac (Zopp b) a.
 
 definition sigma_Q \def \lambda n,p,f.iter_p_gen n p Q f QO Qplus. 
-
+(*
 theorem geometric: \forall q.\exists k. 
 Qlt q (sigma_Q k (\lambda x.true) (\lambda x. frac (S O) x)).
-    
\ No newline at end of file
+*)