nat model ported to the dualized version, but not itself dualized dedekind-sig-compl...

[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 70b3e6ade4b21544c6385be1d58b313167f50ec8..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
@@ -48,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.