X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Fnat%2Fsqrt.ma;h=d523d634dc5ff3fb503fa34f1ca39eaf432fe040;hb=1ee5193677b8e2a80d4f068ee79ecac335de1196;hp=733afe641af55679f8d89f44656fa02ea82c178a;hpb=57ff5cdc5a03a3de6f9366d4427b8188e5d8dec2;p=helm.git

diff --git a/helm/software/matita/library/nat/sqrt.ma b/helm/software/matita/library/nat/sqrt.ma
index 733afe641..d523d634d 100644
--- a/helm/software/matita/library/nat/sqrt.ma
+++ b/helm/software/matita/library/nat/sqrt.ma
@@ -12,8 +12,6 @@
 (*                                                                        *)
 (**************************************************************************)
 
-set "baseuri" "cic:/matita/nat/sqrt/".
-
 include "nat/times.ma".
 include "nat/compare.ma".
 include "nat/log.ma".
@@ -204,3 +202,18 @@ apply f_m_to_le_max
         |simplify;apply le_exp_log;assumption]
      |rewrite < H1;simplify;apply le_n]]
 qed.
+
+(* monotonicity *)
+theorem monotonic_sqrt: monotonic nat le sqrt.
+unfold.intros.
+unfold sqrt in ⊢ (? ? (% ?)).
+apply f_m_to_le_max
+  [apply (trans_le ? ? ? ? H).
+   apply le_sqrt_n_n
+  |apply le_to_leb_true.
+   apply (trans_le ? ? ? ? H). 
+   apply leq_sqrt_n
+  ]
+qed.
+   
+