fact: Definition B2 (e : bool * _ * _ * _) b := let '(incla, lsA1, lsA2, s_A) := e in lsB1 <-$ compMap _ c1 lsA1; lsB2 <-$ compMap _ c2 lsA2; lsB <- if incla then (lsB1 ++ (b :: lsB2)) else lsB1; A2 s_A lsB.
imports: FCF.FCF FCF.CompFold