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