]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/matita/library/Q/Qaxioms.ma
- transcript: bugfix
[helm.git] / helm / software / matita / library / Q / Qaxioms.ma
index 6cf6b6994992d0cbdf7feda41d4cd892df836b22..d527d657819656f3544b43decbc46343a1f5ecbd 100644 (file)
@@ -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
+*)