proposition: Lemma fulfillAG_fun_bounded s S : bounded S (fulfillAG_fun s S).
proof: Proof. move => *. exact: subsep. Qed.
imports: Relations mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base sltype) CompDecModal.Kstar(Kstar_def)