fact: Fixpoint liftPointwise {A B : Type} (R : A-> B -> [univ]) (la: list A) (lb : list B) : [univ]:= match (la,lb) with | ([],[]) => True | (a::tla,b::tlb) => (R a b) # (liftPointwise R tla tlb) | _ => False end.
imports: UsefulTypes bin_rels Omega