PdgMarks.Fcttype fi = (mark, call_info) PdgIndex.FctIndex.ttype t = PdgTypes.Pdg.t * fival create : PdgTypes.Pdg.t -> ttype mark_info_inter = mark info_interval empty_to_prop : mark_info_interval mark_and_propagate :
t ->
?to_prop:mark_info_inter ->
mark select ->
mark_info_inter