proposition: Lemma abs_app (A : Type) (x : A) (A' : Type) r (t1 : A' -> typer r) (t2 : A') (r1 : result x t1) (r2 : result x t2): result x (t1 t2).
proof: Proof. elim r1. intros f1 p1. elim r2. intros f2 p2. rewrite p1, p2. exact (R (fun y=>f1 y (f2 y)) (meq_refl _)). Defined.
imports: Mtac2(Base Logic Datatypes List)