let eq_array arr (ta:F.array) (tb:F.array) = ArrEqDef.define arr ; let eq = ArrEqName.get_definition arr in F.p_app2 eq.d_name ta tb