fact: Fixpoint minimise_slope pt₁ pt₂ pts₂ := match pts₂ with | [] => {| ini_pt := pt₁; fin_pt := pt₂; oth_pts := [] |} | pt₃ :: pts₃ => let ms := minimise_slope pt₁ pt₃ pts₃ in match Qcompare (slope_expr pt₁ pt₂) (slope ms) with | Eq => {| ini_pt := pt₁; fin_pt := fin_pt ms; oth_pts := pt₂ :: oth_pts ms |} | Lt => {| ini_pt := pt₁; fin_pt := pt₂; oth_pts := [] |} | Gt => ms end end.
imports: Utf8 QArith List Slope_base