(*****************************)

Lemma join_unage'  {A} {JA: Join A}{PA: Perm_alg A}{SA: Sep_alg A}{agA: ageable A}{AgeA: Age_alg A}:
forall phi1 phi1' phi2' phi3' : A,
age1 phi1 = Some phi1' ->
join phi1' phi2' phi3' ->
exists phi2, exists phi3, join phi1 phi2 phi3 /\
age1 phi2 = Some phi2' /\ age1 phi3 = Some phi3'.