let rec collect_sepstars loc n (t:term) (sep_terms:term list) = let sep_terms = t :: sep_terms in if n=1 then sep_terms else let tstar = deref loc t in collect_sepstars loc (pred n) tstar sep_terms