- sober_terms (sober_term (sober_term g t) v) ts
- | C.Fix (_, ifs) -> sober_ifs g ifs
- | C.CoFix (_, cifs) -> sober_cifs g cifs
- and sober_terms g = List.fold_left sober_term g
- and sober_xnss g =
- let map g (_, t) = sober_term g t in
+ sober_terms c (sober_term c (sober_term c g t) v) ts
+ | C.Fix (_, ifs) -> sober_ifs c g ifs
+ | C.CoFix (_, cifs) -> sober_cifs c g cifs
+ and sober_terms c g = List.fold_left (sober_term c) g
+ and sober_xnss c g =
+ let map g (_, t) = sober_term c g t in