let eq_record comp (ta:F.record) (tb:F.record) =
    if comp.cfields <>[] then RecEqDef.define comp ;
    let eq = RecEqName.get_definition comp in
    F.p_app2 eq.d_name ta tb