Section selectors.
Variable (j: juicy_mem).
Definition m_dry := match j with mkJuicyMem m _ _ _ _ _ => m end.
Definition m_phi := match j with mkJuicyMem _ phi _ _ _ _ => phi end.

Lemma age1_constructive_joins_eq : forall {A}  {JA: Join A}{PA: Perm_alg A}{agA: ageable A}{AgeA: Age_alg A}  {phi1 phi2},
constructive_joins phi1 phi2
-> forall {phi1'}, age1 phi1 = Some phi1'
-> forall {phi2'}, age1 phi2 = Some phi2'
-> constructive_joins phi1' phi2'.