(** * Composition *)
(* Lemma is_RInt_gen_comp_opp {Fa Fb : (R -> Prop) -> Prop} {FFa : Filter Fa} {FFb : Filter Fb} (f : R -> V) (l : V) : is_RInt_gen f (filtermap opp Fa) (filtermap opp Fb) l -> is_RInt_gen (fun y => opp (f (- y))) Fa Fb l.  Lemma is_RInt_gen_comp_lin {Fa Fb : (R -> Prop) -> Prop} {FFa : Filter Fa} {FFb : Filter Fb} (f : R -> V) (u v : R) (l : V) : is_RInt_gen f (filtermap (fun a => u * a + v) Fa) (filtermap (fun b => u * b + v) Fb) l -> is_RInt_gen (fun y => scal u (f (u * y + v))) Fa Fb l. *)
(** * Operations *)

Lemma is_RInt_gen_opp {Fa Fb : (R -> Prop) -> Prop}
{FFa : Filter Fa} {FFb : Filter Fb} (f : R -> V) (l : V) :
is_RInt_gen f Fa Fb l ->
is_RInt_gen (fun y => opp (f y)) Fa Fb (opp l).