aux ty; aux te; (List.iter (fun t -> aux t) patterns)
| C.Fix (no, funs) -> List.iter (fun (_,_,b,c) -> aux b; aux c) funs
| C.CoFix (no,funs) -> List.iter (fun (_,b,c) -> aux b; aux c) funs
- | _ -> ()
and aux_uri u =
if is_not_visited u then
let _, _, l =