def
Hex.Perm.Sum.leftPoint
{n m : Nat}
(r : Perm (n + m))
(h : ∃ (p : Perm n), ∃ (q : Perm m), r = p.sum q)
(i : Fin n)
:
Fin n
Restrict to the first consecutive support. The existence proof supplies only bounds; the executable map reads the original permutation array.
Equations
- Hex.Perm.Sum.leftPoint r h i = ⟨↑(r.get (Fin.castAdd m i)), ⋯⟩