Arguments af_wf [A] _ _.
Definition age_induction {A} `{ageable A} :=
well_founded_induction (af_wf _).
Definition fashionR {A1} `{ageable A1} {A2}`{ageable A2} (x:A1) (y: A2) : Prop :=
level x = level y.

Lemma fashionR_trans {A} `{ageable A} {B} `{ageable B} {C} `{ageable C} :
forall (x: A) (y: B) (z: C), fashionR x y -> fashionR y z -> fashionR x z.