fact: Definition fulfillAG_fun s S X : {fset clause} := [fset C in S | [some D in S, rtrans C D && ((D |> s^-) || (D \in X))]].
imports: Relations mathcomp.ssreflect.ssreflect mathcomp(all_ssreflect) CompDecModal.libs(edone bcase fset base sltype) CompDecModal.Kstar(Kstar_def)