fact: Fixpoint swap_term M (pos: Pos M) (R: Term) : Preterm := match pos with | PThis M => term R | @PAbs _ A _ _ _ pos => Abs A (swap_term pos R) | @PAppL _ _ _ PtL PtR _ _ pos => swap_term pos R @@ PtR | @PAppR _ _ _ PtL PtR _ _ pos => PtL @@ swap_term pos R end.
imports: CoLoR(RelExtras ListExtras TermsBuilding)