fact: Fixpoint compMap (A : Type)(B : Set)(eqdb : EqDec B)(c : A -> Comp B)(ls : list A) : Comp (list B) := match ls with | nil => ret nil | a :: lsa' => b <-$ c a; lsb' <-$ compMap _ c lsa'; ret (b :: lsb') end.
imports: FCF.FCF