X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2FQ%2Finv.ma;h=9cc2fc3b43ea9c7c06fd001338221d0c38d37759;hb=ca41435a6021292ccba239aa173651c0be705b45;hp=31b2d8bc006479da0c1a0798c4343688683dc08d;hpb=47de0896ada04101d9d8e696c6aed733d7fcab37;p=helm.git

diff --git a/helm/software/matita/library/Q/inv.ma b/helm/software/matita/library/Q/inv.ma
index 31b2d8bc0..9cc2fc3b4 100644
--- a/helm/software/matita/library/Q/inv.ma
+++ b/helm/software/matita/library/Q/inv.ma
@@ -14,6 +14,7 @@
 
 include "Q/q.ma".
 
+alias id "finv" = "cic:/matita/Q/fraction/finv/finv.con".
 theorem denominator_integral_factor_finv:
  ∀f. enumerator_integral_fraction f = denominator_integral_fraction (finv f).
  intro;
@@ -24,6 +25,7 @@ theorem denominator_integral_factor_finv:
    elim z; simplify; reflexivity]
 qed.
 
+alias id "Qpos" = "cic:/matita/Q/q/q/Q.ind#xpointer(1/1/2)".
 definition is_positive ≝
  λq.
   match q with
@@ -31,6 +33,7 @@ definition is_positive ≝
    | _ ⇒ False
    ].
 
+alias id "Qneg" = "cic:/matita/Q/q/q/Q.ind#xpointer(1/1/3)".
 definition is_negative ≝
  λq.
   match q with
@@ -38,6 +41,7 @@ definition is_negative ≝
    | _ ⇒ False
    ].
 
+(*
 theorem is_positive_denominator_Qinv:
  ∀q. is_positive q → enumerator q = denominator (Qinv q).
  intro;
@@ -87,3 +91,4 @@ theorem is_negative_enumerator_Qinv:
     assumption
   | elim q in H ⊢ %; assumption]
 qed.
+*)
\ No newline at end of file