simp [E_perm, pair_perm']
n d : ℕ
inst✝ : NeZero d
w w' : Weight n d
σ : Equiv.Perm (Fin (Nat.succ n))
⊢ Weight.comp w σ ≤ Weight.comp w' σ ↔ w ≤ w'
n d : ℕ
inst✝ : NeZero d
w w' : Weight n d
σ : Equiv.Perm (Fin (Nat.succ n))
⊢ (∀ a ∈ testvecs n d, E w ≤ E w' - pair w' (Weight.comp a σ⁻¹) + pair w (Weight.comp a σ⁻¹)) ↔
    ∀ a ∈ testvecs n d, E w ≤ E w' - pair w' a + pair w a