fact: Definition TupleMap_subterm := λ x y : {index : {n : nat & sigma (λ _ : TupleT n, TupleT n)} & TupleMap (pr1 index) (pr1 (pr2 index)) (pr2 (pr2 index))}, TupleMap_direct_subterm (pr1 (pr1 x)) (pr1 (pr2 (pr1 x))) (pr2 (pr2 (pr1 x))) (pr1 (pr1 y)) (pr1 (pr2 (pr1 y))) (pr2 (pr2 (pr1 y))) (pr2 x) (pr2 y).
imports: Utf8 Program Equations.Prop.Equations