Module Bigop.Coq_bigop

val body : 'a1 -> 'a2 list -> ('a2 -> ('a1, 'a2) bigbody) -> 'a1