better names

[helm.git] / helm / software / matita / contribs / dama / dama / models / q_support.ma

diff --git a/helm/software/matita/contribs/dama/dama/models/q_support.ma b/helm/software/matita/contribs/dama/dama/models/q_support.ma
index 6694a033fa6494902a7f499a95eff54063faf569..4f27f398a42d9963a35f31c08e903666ec403d73 100644 (file)
--- a/helm/software/matita/contribs/dama/dama/models/q_support.ma
+++ b/helm/software/matita/contribs/dama/dama/models/q_support.ma
@@ -14,10 +14,9 @@
 
 include "Q/q/qtimes.ma".
 include "Q/q/qplus.ma".
-include "cprop_connectives.ma".
+include "logic/cprop_connectives.ma".
 
-notation "\rationals" non associative with precedence 99 for @{'q}.
-interpretation "Q" 'q = Q. 
+interpretation "Q" 'Q = Q. 
 
 (* group over Q *)
 axiom qp : ℚ → ℚ → ℚ.
@@ -49,6 +48,8 @@ inductive q_le_elimination (a,b:ℚ) : CProp ≝
 
 axiom q_le_cases : ∀x,y:ℚ.x ≤ y → q_le_elimination x y.
 
+axiom q_le_to_le_to_eq : ∀x,y. x ≤ y → y ≤ x → x = y.
+
 axiom q_le_plus_l: ∀a,b,c:ℚ. a ≤ c - b → a + b ≤ c.
 axiom q_le_plus_r: ∀a,b,c:ℚ. a - b ≤ c → a ≤ c + b.
 axiom q_lt_plus_l: ∀a,b,c:ℚ. a < c - b → a + b < c.