fact: Definition LH_G_0 n := [lsa, s_A] <-$2 A1; lsa1 <- firstn n lsa; a <- nth n lsa defA; lsa2 <- skipn (S n) lsa; lsb1 <-$ compMap _ (A2' s_A) lsa1; b <-$ A2 s_A a; lsb2 <-$ compMap _ (A2 s_A) lsa2; A3 s_A (lsb1 ++ (b :: lsb2)).
imports: FCF CompFold