proposition: Theorem curve_elt_irr1 x1 x2 y1 y2 e1 e2 : x1 = x2 -> (x1 = x2 -> y1 = y2) -> @curve_elt x1 y1 e1 = @curve_elt x2 y2 e2.
proof: Proof. by move=> x1E y1E; apply: curve_elt_irr (y1E _). Qed.
imports: HB(structures) mathcomp(all_ssreflect all_algebra ring)