+definition induced_riesz_norm ≝
+ λR:real.λV:integration_riesz_space R.
+ mk_riesz_norm ? ? (induced_norm ? V) (is_riesz_norm_induced_norm ? V).
+
+definition distance_induced_by_integral ≝
+ λR:real.λV:integration_riesz_space R.
+ induced_distance ? ? (induced_norm R V).
+
+definition is_complete_integration_riesz_space ≝
+ λR:real.λV:integration_riesz_space R.
+ is_complete ? ? (distance_induced_by_integral ? V).
+
+record complete_integration_riesz_space (R:real) : Type ≝
+ { cirz_integration_riesz_space:> integration_riesz_space R;
+ cirz_complete_integration_riesz_space_property:
+ is_complete_integration_riesz_space ? cirz_integration_riesz_space
+ }.
+
+(* now we prove that any complete integration riesz space is an L-space *)
+
+(*theorem is_l_space_l_space_induced_by_integral:
+ ∀R:real.∀V:complete_integration_riesz_space R.
+ is_l_space ? ? (induced_riesz_norm ? V).
+ intros;
+ constructor 1;
+ [ apply cirz_complete_integration_riesz_space_property
+ | intros;
+ unfold induced_riesz_norm;
+ simplify;
+ unfold induced_norm;
+ simplify;
+ unfold induced_norm_fun;
+ (* difficile *)
+ elim daemon
+ ].
+qed.*)
+
+(**************************** f-ALGEBRAS ********************************)
+