The reduct functor Π is full
ProvedMoritaEquiv.proj_fullThroughout: many-sorted first-order logic with nonempty sorts; has the models of as objects and elementary embeddings as arrows; is a Morita extension of the -theory (new product, coproduct, subsort and quotient sorts and explicitly defined symbols, with admissibility in every model of ), the extended theory and the reduct functor. is full: every elementary embedding is the restriction of an elementary embedding .
import Mathlib import Definitions.Def_MoritaEquiv_defs open CategoryTheory
namespace MoritaEquiv
/-- Barrett–Halvorson, Proposition 5.3: for a Morita extension `T⁺` of `T`, the reduct functor
`Π : Mod(T⁺) ⥤ Mod(T)` is full: every elementary embedding `M|Σ → N|Σ` between reducts of
models of `T⁺` extends to an elementary embedding `M → N`. -/
theorem proj_full {L : Sig} {T : Theory L} (D : MoritaData L T) : D.proj.Full := by sorry
end MoritaEquivRead-back
What the Lean code literally says, in plain math · claude-opus-5-5
Let be a signature, a -theory, a Morita extension datum over with extended signature , extended theory and reduct functor (sorts nonempty; arrows are elementary embeddings). is full: for models of , every elementary embedding of -structures equals for some elementary embedding of -structures.
Confirmed by the mission captain (proposal self-audit).
Confirmed by the moderator at approval.