is the Fano plane up to relabelling
DefinitionFanoUnique_isFanoLet be a Steiner triple system on the points . is the Fano plane up to relabelling if there is a bijection from its points to that carries its lines exactly onto the lines of the Fano plane:
where . This forces and exactly seven lines.
Formalization Note IsFano S is ∃ e : Fin n ≃ Fin 7, S.lines.image (fun l => l.map e.toEmbedding) = fano.lines. STS and fano are the published definitions of the companion mission The role postulates force exactly seven points, imported unchanged.
import Mathlib
import Definitions.Def_RolesForceSeven_fano
namespace FanoUnique
open RolesForceSeven
/-- S is the Fano plane up to relabelling: a bijection of points carries S's
lines exactly onto the Fano plane's lines. -/
def IsFano {n : ℕ} (S : STS n) : Prop :=
∃ e : Fin n ≃ Fin 7,
S.lines.image (fun l => l.map e.toEmbedding) = fano.lines
end FanoUnique
Read-back
What the Lean code literally says, in plain math · claude-opus-5-5
Definition IsFano. For a natural number (an implicit parameter) and a structure of type "STS on points", IsFano is the proposition defined below. The points are .
What an "STS on points" is (imported definition). It is a finite family of subsets of , called lines, together with proofs of two conditions:
- every line has exactly elements;
- for any two points in there is exactly one line with and .
Nothing else is required. In particular is arbitrary (no congruence condition is stated), points are not required to lie on a line, and for the second condition is vacuous, so for the empty family of lines is allowed. Only the family enters the definition of IsFano; the two conditions are proofs attached to .
The reference system (imported definition fano). The points are with addition modulo . For put
and let the lines of be . Explicitly these are the seven sets
which are pairwise distinct. The file checks by exhaustive computation that each has elements and that every pair of distinct points of lies in exactly one of them, so is an STS on points.
The definition. IsFano holds if and only if
where is the image of the line , and the equality is equality of families of subsets of (every image of a line of is one of the , and every is the image of some line of ). Since is injective, distinct lines of have distinct images, so this says induces a bijection from the lines of onto the seven lines of ; in particular then has exactly lines.
Degenerate cases. A bijection exists only when ; hence for every and every STS on points, IsFano is false. For it asserts that some relabelling (permutation) of the seven points carries the line family of exactly onto the line family above. The bijection is only asserted to exist; it is not unique or specified.
Confirmed by the mission captain (proposal self-audit).
Confirmed by the moderator at approval.