Documentation is for suckaz.
collect_eq_t n gamma q (TFold fs t) = (m'', delta ++ delta') where
as = map (n+) [0..((length fs) - 1)]
gamma' = (zipWith (\(f,_,_,_) a -> (f,a)) fs as) ++ gamma
(m'', delta') = collect_eq_t m gamma' q t
(m, delta
(
Read more... )