End Op_LinearFct.

(* Specifications: *)
Lemma is_linear_prod {K : AbsRing} {T U V : NormedModule K}
(l1 : T -> U) (l2 : T -> V) :
is_linear l1 -> is_linear l2 -> is_linear (fun t : T => (l1 t, l2 t)).
Lemma is_linear_fst {K : AbsRing} {U V : NormedModule K} :
is_linear (fun t : U * V => fst t).
Lemma is_linear_snd {K : AbsRing} {U V : NormedModule K} :
is_linear (fun t : U * V => snd t).