Functors

This module provides additional lemmas, definitions, and instances for Functors.

Main definitions

• Functor.Const α is the functor that sends all types to α.
• Functor.AddConst α is Functor.Const α but for when α has an additive structure.
• Functor.Comp F G for functors F and G is the functor composition of F and G.
• Liftp and Liftr respectively lift predicates and relations on a type α to F α. Terms of F α are considered to, in some sense, contain values of type α.

Tags

functor, applicative

ink

theorem Functor.map_id {F : Type u → Type v} {α : Type u} [inst : Functor F] [inst : LawfulFunctor F] : (fun x x_1 => x <$> x_1) id = id

ink

theorem Functor.map_comp_map {F : Type u → Type v} {α : Type u} {β : Type u} {γ : Type u} [inst : Functor F] [inst : LawfulFunctor F] (f : α → β) (g : β → γ) : (fun x x_1 => x <$> x_1) g ∘ (fun x x_1 => x <$> x_1) f = (fun x x_1 => x <$> x_1) (g ∘ f)

ink

theorem Functor.ext {F : Type u_1 → Type u_2} {F1 : Functor F} {F2 : Functor F} [inst : LawfulFunctor F] [inst : LawfulFunctor F] : (∀ (α β : Type u_1) (f : α → β) (x : F α), f <$> x = f <$> x) → F1 = F2

ink

def id.mk {α : Sort u} : α → id α

Introduce id as a quasi-functor. (Note that where a lawful Monad or Applicative or Functor is needed, Id is the correct definition).

Equations

• id.mk = id

ink

def Functor.Const (α : Type u_1) (_β : Type u_2) : Type u_1

Const α is the constant functor, mapping every type to α. When α has a monoid structure, Const α has an Applicative instance. (If α has an additive monoid structure, see Functor.AddConst.)

Equations

• Functor.Const α _β = α

ink

@[match_pattern]

def Functor.Const.mk {α : Type u_1} {β : Type u_2} (x : α) : Functor.Const α β

Const.mk is the canonical map α → Const α β→ Const α β (the identity), and it can be used as a pattern to extract this value.

Equations

• Functor.Const.mk x = x

ink

def Functor.Const.mk' {α : Type u_1} (x : α) : Functor.Const α PUnit

Const.mk' is Const.mk but specialized to map α to Const α PUnit, where PUnit is the terminal object in Type _.

Equations

• Functor.Const.mk' x = x

ink

def Functor.Const.run {α : Type u_1} {β : Type u_2} (x : Functor.Const α β) : α

Extract the element of α from the Const functor.

Equations

• Functor.Const.run x = x

ink

theorem Functor.Const.ext {α : Type u_1} {β : Type u_2} {x : Functor.Const α β} {y : Functor.Const α β} (h : Functor.Const.run x = Functor.Const.run y) : x = y

ink

def Functor.Const.map {γ : Type u_1} {α : Type u_2} {β : Type u_3} (_f : α → β) (x : Functor.Const γ β) : Functor.Const γ α

The map operation of the Const γ functor.

Equations

• Functor.Const.map _f x = x

ink

instance Functor.Const.functor {γ : Type u_1} : Functor (Functor.Const γ)

Equations

• Functor.Const.functor = { map := @Functor.Const.map γ, mapConst := fun {α β} => Functor.Const.map ∘ Function.const β }

ink

instance Functor.Const.lawfulFunctor {γ : Type u_1} : LawfulFunctor (Functor.Const γ)

Equations

• @Functor.Const.lawfulFunctor = @Functor.Const.lawfulFunctor.proof_1

ink

instance Functor.Const.instInhabitedConst {α : Type u_1} {β : Type u_2} [inst : Inhabited α] : Inhabited (Functor.Const α β)

Equations

• Functor.Const.instInhabitedConst = { default := default }

ink

def Functor.AddConst (α : Type u_1) (_β : Type u_2) : Type u_1

AddConst α is a synonym for constant functor Const α, mapping every type to α. When α has a additive monoid structure, AddConst α has an Applicative instance. (If α has a multiplicative monoid structure, see Functor.Const.)

Equations

• Functor.AddConst α = Functor.Const α

ink

@[match_pattern]

def Functor.AddConst.mk {α : Type u_1} {β : Type u_2} (x : α) : Functor.AddConst α β

AddConst.mk is the canonical map α → AddConst α β→ AddConst α β, which is the identity, where AddConst α β = Const α β. It can be used as a pattern to extract this value.

Equations

• Functor.AddConst.mk x = x

ink

def Functor.AddConst.run {α : Type u_1} {β : Type u_2} : Functor.AddConst α β → α

Extract the element of α from the constant functor.

Equations

• Functor.AddConst.run = id

ink

instance Functor.AddConst.functor {γ : Type u_1} : Functor (Functor.AddConst γ)

Equations

• Functor.AddConst.functor = Functor.Const.functor

ink

instance Functor.AddConst.lawfulFunctor {γ : Type u_1} : LawfulFunctor (Functor.AddConst γ)

Equations

• @Functor.AddConst.lawfulFunctor = @Functor.AddConst.lawfulFunctor.proof_1

ink

instance Functor.instInhabitedAddConst {α : Type u_1} {β : Type u_2} [inst : Inhabited α] : Inhabited (Functor.AddConst α β)

Equations

• Functor.instInhabitedAddConst = { default := default }

ink

def Functor.Comp (F : Type u → Type w) (G : Type v → Type u) (α : Type v) : Type w

Functor.Comp is a wrapper around Function.Comp for types. It prevents Lean's type class resolution mechanism from trying a Functor (Comp F id) when Functor F would do.

Equations

• Functor.Comp F G α = F (G α)

ink

@[match_pattern]

def Functor.Comp.mk {F : Type u → Type w} {G : Type v → Type u} {α : Type v} (x : F (G α)) : Functor.Comp F G α

Construct a term of Comp F G α from a term of F (G α), which is the same type. Can be used as a pattern to extract a term of F (G α).

Equations

• Functor.Comp.mk x = x

ink

def Functor.Comp.run {F : Type u → Type w} {G : Type v → Type u} {α : Type v} (x : Functor.Comp F G α) : F (G α)

Extract a term of F (G α) from a term of Comp F G α, which is the same type.

Equations

• Functor.Comp.run x = x

ink

theorem Functor.Comp.ext {F : Type u → Type w} {G : Type v → Type u} {α : Type v} {x : Functor.Comp F G α} {y : Functor.Comp F G α} : Functor.Comp.run x = Functor.Comp.run y → x = y

ink

instance Functor.Comp.instInhabitedComp {F : Type u → Type w} {G : Type v → Type u} {α : Type v} [inst : Inhabited (F (G α))] : Inhabited (Functor.Comp F G α)

Equations

• Functor.Comp.instInhabitedComp = { default := default }

ink

def Functor.Comp.map {F : Type u → Type w} {G : Type v → Type u} [inst : Functor F] [inst : Functor G] {α : Type v} {β : Type v} (h : α → β) : Functor.Comp F G α → Functor.Comp F G β

The map operation for the composition Comp F G of functors F and G.

Equations

• Functor.Comp.map h x = match x with | x => Functor.Comp.mk ((fun x x_1 => x <$> x_1) h <$> x)

ink

instance Functor.Comp.functor {F : Type u → Type w} {G : Type v → Type u} [inst : Functor F] [inst : Functor G] : Functor (Functor.Comp F G)

Equations

• Functor.Comp.functor = { map := @Functor.Comp.map F G inst inst, mapConst := fun {α β} => Functor.Comp.map ∘ Function.const β }

ink

theorem Functor.Comp.map_mk {F : Type u → Type w} {G : Type v → Type u} [inst : Functor F] [inst : Functor G] {α : Type v} {β : Type v} (h : α → β) (x : F (G α)) : h <$> Functor.Comp.mk x = Functor.Comp.mk ((fun x x_1 => x <$> x_1) h <$> x)

ink

@[simp]

theorem Functor.Comp.run_map {F : Type u → Type w} {G : Type v → Type u} [inst : Functor F] [inst : Functor G] {α : Type v} {β : Type v} (h : α → β) (x : Functor.Comp F G α) : Functor.Comp.run (h <$> x) = (fun x x_1 => x <$> x_1) h <$> Functor.Comp.run x

ink

theorem Functor.Comp.id_map {F : Type u → Type w} {G : Type v → Type u} [inst : Functor F] [inst : Functor G] [inst : LawfulFunctor F] [inst : LawfulFunctor G] {α : Type v} (x : Functor.Comp F G α) : Functor.Comp.map id x = x

ink

theorem Functor.Comp.comp_map {F : Type u → Type w} {G : Type v → Type u} [inst : Functor F] [inst : Functor G] [inst : LawfulFunctor F] [inst : LawfulFunctor G] {α : Type v} {β : Type v} {γ : Type v} (g' : α → β) (h : β → γ) (x : Functor.Comp F G α) : Functor.Comp.map (h ∘ g') x = Functor.Comp.map h (Functor.Comp.map g' x)

ink

instance Functor.Comp.lawfulFunctor {F : Type u → Type w} {G : Type v → Type u} [inst : Functor F] [inst : Functor G] [inst : LawfulFunctor F] [inst : LawfulFunctor G] : LawfulFunctor (Functor.Comp F G)

Equations

• @Functor.Comp.lawfulFunctor = @Functor.Comp.lawfulFunctor.proof_1

ink

theorem Functor.Comp.functor_comp_id {F : Type u_1 → Type u_2} [AF : Functor F] [inst : LawfulFunctor F] : Functor.Comp.functor = AF

ink

theorem Functor.Comp.functor_id_comp {F : Type u_1 → Type u_2} [AF : Functor F] [inst : LawfulFunctor F] : Functor.Comp.functor = AF

ink

def Functor.Comp.seq {F : Type u → Type w} {G : Type v → Type u} [inst : Applicative F] [inst : Applicative G] {α : Type v} {β : Type v} : Functor.Comp F G (α → β) → (Unit → Functor.Comp F G α) → Functor.Comp F G β

The <*> operation for the composition of applicative functors.

Equations

• Functor.Comp.seq x x = match x, x with | f, g => match g () with | x => Functor.Comp.mk (Seq.seq ((fun x x_1 => Seq.seq x fun x => x_1) <$> f) fun x_1 => x)

ink

instance Functor.Comp.instPureComp {F : Type u → Type w} {G : Type v → Type u} [inst : Applicative F] [inst : Applicative G] : Pure (Functor.Comp F G)

Equations

• Functor.Comp.instPureComp = { pure := fun {α} x => Functor.Comp.mk (pure (pure x)) }

ink

instance Functor.Comp.instSeqComp {F : Type u → Type w} {G : Type v → Type u} [inst : Applicative F] [inst : Applicative G] : Seq (Functor.Comp F G)

Equations

• Functor.Comp.instSeqComp = { seq := fun {α β} f x => Functor.Comp.seq f x }

ink

@[simp]

theorem Functor.Comp.run_pure {F : Type u → Type w} {G : Type v → Type u} [inst : Applicative F] [inst : Applicative G] {α : Type v} (x : α) : Functor.Comp.run (pure x) = pure (pure x)

ink

@[simp]

theorem Functor.Comp.run_seq {F : Type u → Type w} {G : Type v → Type u} [inst : Applicative F] [inst : Applicative G] {α : Type v} {β : Type v} (f : Functor.Comp F G (α → β)) (x : Functor.Comp F G α) : Functor.Comp.run (Seq.seq f fun x => x) = Seq.seq ((fun x x_1 => Seq.seq x fun x => x_1) <$> Functor.Comp.run f) fun x => Functor.Comp.run x

ink

instance Functor.Comp.instApplicativeComp {F : Type u → Type w} {G : Type v → Type u} [inst : Applicative F] [inst : Applicative G] : Applicative (Functor.Comp F G)

Equations

• Functor.Comp.instApplicativeComp = let src := Functor.Comp.instPureComp; Applicative.mk

ink

def Functor.Liftp {F : Type u → Type u} [inst : Functor F] {α : Type u} (p : α → Prop) (x : F α) : Prop

If we consider x : F α to, in some sense, contain values of type α, predicate Liftp p x holds iff every value contained by x satisfies p.

Equations

• Functor.Liftp p x = ∃ u, Subtype.val <$> u = x

ink

def Functor.Liftr {F : Type u → Type u} [inst : Functor F] {α : Type u} (r : α → α → Prop) (x : F α) (y : F α) : Prop

If we consider x : F α to, in some sense, contain values of type α, then Liftr r x y relates x and y iff (1) x and y have the same shape and (2) we can pair values a from x and b from y so that r a b holds.

Equations

• Functor.Liftr r x y = ∃ u, (fun t => t.val.fst) <$> u = x ∧ (fun t => t.val.snd) <$> u = y

ink

def Functor.supp {F : Type u → Type u} [inst : Functor F] {α : Type u} (x : F α) : Set α

If we consider x : F α to, in some sense, contain values of type α, then supp x is the set of values of type α that x contains.

Equations

• Functor.supp x = { y | ⦃p : α → Prop⦄ → Functor.Liftp p x → p y }

ink

theorem Functor.of_mem_supp {F : Type u → Type u} [inst : Functor F] {α : Type u} {x : F α} {p : α → Prop} (h : Functor.Liftp p x) (y : α) : y ∈ Functor.supp x → p y

ink

def Functor.mapConstRev {f : Type u → Type v} [inst : Functor f] {α : Type u} {β : Type u} : f β → α → f α

If f is a functor, if fb : f β and a : α, then mapConstRev fb a is the result of applying f.map to the constant function β → α→ α sending everything to a, and then evaluating at fb. In other words it's const a <$> fb.

Equations

• a $> b = Functor.mapConst b a

ink

def Functor.«term_$>_» : Lean.TrailingParserDescr

If f is a functor, if fb : f β and a : α, then mapConstRev fb a is the result of applying f.map to the constant function β → α→ α sending everything to a, and then evaluating at fb. In other words it's const a <$> fb.

Equations

• Functor.«term_$>_» = Lean.ParserDescr.trailingNode `Functor.term_$>_ 100 101 (Lean.ParserDescr.binary `andthen (Lean.ParserDescr.symbol " $> ") (Lean.ParserDescr.cat `term 101))