Section CompLoop.
Variable A : Set.
Hypothesis eqd : EqDec A.
Variable c : A -> Comp A.
Hypothesis c_wf : forall a, well_formed_comp (c a).
Definition compLoop n (a : A) : Comp A :=
compFold _ (fun a n => c a) a (allNatsLt n).

Theorem compLoop_wf : forall n a,
well_formed_comp (compLoop n a).