Lines Matching refs:ascends

94 value aoi base i = base.data.ascends.get (Adef.int_of_iper i);
2665   let (persons, ascends, unions) = persons in
2672     {persons = record_access_of persons; ascends = record_access_of ascends;
2700 value check_parents_children base ascends unions couples descends =
2705       let a = ascends.(i) in
2710             ascends.(i) := ascend_with_parents a None
2727               ascends.(i) := ascend_with_parents a None
2799         let a = ascends.(Adef.int_of_iper (get_children des).(j)) in
2829               ascends.(Adef.int_of_iper (get_children des).(j)) := a
2961   let (persons, ascends, unions) = persons in
2986     let a = ascends.(i) in
3003   check_parents_children base ascends unions couples descends;