Procedural: explicit flavour specification for constants is now working

[helm.git] / helm / software / matita / contribs / CoRN-Procedural / algebra / COrdFields2.mma

diff --git a/helm/software/matita/contribs/CoRN-Procedural/algebra/COrdFields2.mma b/helm/software/matita/contribs/CoRN-Procedural/algebra/COrdFields2.mma
index 3e39c77f011dbee3c4dae0359915e63942178490..595d7ef8bbe577419e7eaaf31cdc4ce93bc6bbf9 100644 (file)
--- a/helm/software/matita/contribs/CoRN-Procedural/algebra/COrdFields2.mma
+++ b/helm/software/matita/contribs/CoRN-Procedural/algebra/COrdFields2.mma
@@ -46,61 +46,61 @@ Section addition
 *** Addition and subtraction%\label{section:leEq-plus-minus}%
 *)
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/plus_resp_leEq.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/plus_resp_leEq.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/plus_resp_leEq_lft.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/plus_resp_leEq_lft.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/minus_resp_leEq.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/minus_resp_leEq.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/inv_resp_leEq.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/inv_resp_leEq.con" as lemma.
 
 (* UNEXPORTED
 Transparent cg_minus.
 *)
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/minus_resp_leEq_rht.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/minus_resp_leEq_rht.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/plus_resp_leEq_both.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/plus_resp_leEq_both.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/plus_resp_less_leEq.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/plus_resp_less_leEq.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/plus_resp_leEq_less.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/plus_resp_leEq_less.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/minus_resp_less_leEq.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/minus_resp_less_leEq.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/minus_resp_leEq_both.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/minus_resp_leEq_both.con" as lemma.
 
 (*#* Cancellation properties
 *)
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/plus_cancel_leEq_rht.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/plus_cancel_leEq_rht.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/inv_cancel_leEq.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/inv_cancel_leEq.con" as lemma.
 
 (*#* Laws for shifting
 *)
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/shift_plus_leEq.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/shift_plus_leEq.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/shift_leEq_plus.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/shift_leEq_plus.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/shift_plus_leEq'.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/shift_plus_leEq'.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/shift_leEq_plus'.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/shift_leEq_plus'.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/shift_leEq_rht.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/shift_leEq_rht.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/shift_leEq_lft.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/shift_leEq_lft.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/shift_minus_leEq.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/shift_minus_leEq.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/shift_leEq_minus.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/shift_leEq_minus.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/shift_leEq_minus'.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/shift_leEq_minus'.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/shift_zero_leEq_minus.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/shift_zero_leEq_minus.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/shift_zero_leEq_minus'.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/shift_zero_leEq_minus'.con" as lemma.
 
 (* UNEXPORTED
 End addition
@@ -116,15 +116,15 @@ Section multiplication
 Multiplication and division respect [[<=]]
 *)
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/mult_resp_leEq_rht.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/mult_resp_leEq_rht.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/mult_resp_leEq_lft.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/mult_resp_leEq_lft.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/mult_resp_leEq_both.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/mult_resp_leEq_both.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/recip_resp_leEq.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/recip_resp_leEq.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/div_resp_leEq.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/div_resp_leEq.con" as lemma.
 
 (* UNEXPORTED
 Hint Resolve recip_resp_leEq: algebra.
@@ -133,40 +133,40 @@ Hint Resolve recip_resp_leEq: algebra.
 (*#* Cancellation properties
 *)
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/mult_cancel_leEq.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/mult_cancel_leEq.con" as lemma.
 
 (*#* Laws for shifting
 *)
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/shift_mult_leEq.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/shift_mult_leEq.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/shift_mult_leEq'.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/shift_mult_leEq'.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/shift_leEq_mult'.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/shift_leEq_mult'.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/shift_div_leEq.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/shift_div_leEq.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/shift_div_leEq'.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/shift_div_leEq'.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/shift_leEq_div.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/shift_leEq_div.con" as lemma.
 
 (* UNEXPORTED
 Hint Resolve shift_leEq_div: algebra.
 *)
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/eps_div_leEq_eps.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/eps_div_leEq_eps.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/nonneg_div_two.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/nonneg_div_two.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/nonneg_div_two'.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/nonneg_div_two'.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/nonneg_div_three.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/nonneg_div_three.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/nonneg_div_three'.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/nonneg_div_three'.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/nonneg_div_four.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/nonneg_div_four.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/nonneg_div_four'.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/nonneg_div_four'.con" as lemma.
 
 (* UNEXPORTED
 End multiplication
@@ -180,53 +180,53 @@ Section misc
 *** Miscellaneous Properties
 *)
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/sqr_nonneg.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/sqr_nonneg.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/nring_nonneg.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/nring_nonneg.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/suc_leEq_dub.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/suc_leEq_dub.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/leEq_nring.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/leEq_nring.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/cc_abs_aid.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/cc_abs_aid.con" as lemma.
 
 include "tactics/Transparent_algebra.ma".
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/nexp_resp_pos.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/nexp_resp_pos.con" as lemma.
 
 include "tactics/Opaque_algebra.ma".
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/mult_resp_nonneg.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/mult_resp_nonneg.con" as lemma.
 
 include "tactics/Transparent_algebra.ma".
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/nexp_resp_nonneg.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/nexp_resp_nonneg.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/power_resp_leEq.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/power_resp_leEq.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/nexp_resp_less.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/nexp_resp_less.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/power_cancel_leEq.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/power_cancel_leEq.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/power_cancel_less.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/power_cancel_less.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/nat_less_bin_nexp.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/nat_less_bin_nexp.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/Sum_resp_leEq.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/Sum_resp_leEq.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/Sumx_resp_leEq.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/Sumx_resp_leEq.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/Sum2_resp_leEq.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/Sum2_resp_leEq.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/approach_zero.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/approach_zero.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/approach_zero_weak.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/approach_zero_weak.con" as lemma.
 
 (* UNEXPORTED
 End misc
 *)
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/equal_less_leEq.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/equal_less_leEq.con" as lemma.
 
 (* UNEXPORTED
 End Properties_of_leEq
@@ -260,31 +260,31 @@ Notation OneR := (One:R).
 
 (* end hide *)
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/mult_pos_imp.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/mult_pos_imp.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/plus_resp_pos_nonneg.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/plus_resp_pos_nonneg.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/plus_resp_nonneg_pos.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/plus_resp_nonneg_pos.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/pos_square.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/pos_square.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/mult_cancel_pos_rht.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/mult_cancel_pos_rht.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/mult_cancel_pos_lft.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/mult_cancel_pos_lft.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/pos_wd.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/pos_wd.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/even_power_pos.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/even_power_pos.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/odd_power_cancel_pos.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/odd_power_cancel_pos.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/plus_resp_pos.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/plus_resp_pos.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/pos_nring_S.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/pos_nring_S.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/square_eq_pos.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/square_eq_pos.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/square_eq_neg.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/square_eq_neg.con" as lemma.
 
 (* UNEXPORTED
 End PosP_properties
@@ -300,7 +300,7 @@ Hint Resolve mult_resp_nonneg.
 %\end{convention}%
 *)
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/one_div_succ.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/one_div_succ.con" as definition.
 
 (* UNEXPORTED
 Implicit Arguments one_div_succ [R].
@@ -312,11 +312,11 @@ Section One_div_succ_properties
 
 alias id "R" = "cic:/CoRN/algebra/COrdFields2/One_div_succ_properties/R.var".
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/one_div_succ_resp_leEq.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/one_div_succ_resp_leEq.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/one_div_succ_pos.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/one_div_succ_pos.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/one_div_succ_resp_less.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/one_div_succ_resp_less.con" as lemma.
 
 (* UNEXPORTED
 End One_div_succ_properties
@@ -326,7 +326,7 @@ End One_div_succ_properties
 ** Properties of [Half]
 *)
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/Half.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/Half.con" as definition.
 
 (* UNEXPORTED
 Implicit Arguments Half [R].
@@ -344,21 +344,21 @@ Let [R] be an ordered field.
 
 alias id "R" = "cic:/CoRN/algebra/COrdFields2/Half_properties/R.var".
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/half_1.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/half_1.con" as lemma.
 
 (* UNEXPORTED
 Hint Resolve half_1: algebra.
 *)
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/pos_half.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/pos_half.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/half_1'.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/half_1'.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/half_2.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/half_2.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/half_lt1.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/half_lt1.con" as lemma.
 
-inline procedural "cic:/CoRN/algebra/COrdFields2/half_3.con".
+inline procedural "cic:/CoRN/algebra/COrdFields2/half_3.con" as lemma.
 
 (* UNEXPORTED
 End Half_properties