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