End BigFOpsSeq.

(* Specifications: *)
(* ** Induction Principles *)
Lemma finSet_rect (T : choiceType) (P : {fset T} -> Type) :
P fset0 -> (forall X, (forall Y, Y `<` X -> P Y) -> P X) -> forall X, P X.
Lemma fset_bounded_coind (T : choiceType) (P : {fset T} -> Type) (U : {fset T}):
(forall X, (forall Y, Y `<=` U -> X `<` Y -> P Y) -> P X) ->
forall X, X `<=` U -> P X.