Retracts of finite types

Content created by Fredrik Bakke, Egbert Rijke, Jonathan Prieto-Cubides and Elisabeth Stenholm.

Created on 2022-02-14.
Last modified on 2024-04-11.

module univalent-combinatorics.retracts-of-finite-types where
open import elementary-number-theory.natural-numbers

open import foundation.decidable-embeddings
open import foundation.decidable-maps
open import foundation.dependent-pair-types
open import foundation.embeddings
open import foundation.fibers-of-maps
open import foundation.functoriality-propositional-truncation
open import foundation.injective-maps
open import foundation.retractions
open import foundation.retracts-of-types
open import foundation.sets
open import foundation.universe-levels

open import univalent-combinatorics.counting
open import univalent-combinatorics.counting-decidable-subtypes
open import univalent-combinatorics.equality-finite-types
open import univalent-combinatorics.equality-standard-finite-types
open import univalent-combinatorics.finite-types
open import univalent-combinatorics.standard-finite-types


If a map i : A → Fin k has a retraction, then it is a decidable map

is-decidable-map-retraction-Fin :
  {l1 : Level} (k : ) {A : UU l1} (i : A  Fin k) 
  retraction i  is-decidable-map i
is-decidable-map-retraction-Fin k =
  is-decidable-map-retraction (has-decidable-equality-Fin k)

If a map i : A → B into a finite type B has a retraction, then i is decidable and A is finite

is-decidable-map-retraction-count :
  {l1 l2 : Level} {A : UU l1} {B : UU l2} (e : count B) (i : A  B) 
  retraction i  is-decidable-map i
is-decidable-map-retraction-count e =
  is-decidable-map-retraction (has-decidable-equality-count e)

is-decidable-map-retraction-is-finite :
  {l1 l2 : Level} {A : UU l1} {B : UU l2} (H : is-finite B) (i : A  B) 
  retraction i  is-decidable-map i
is-decidable-map-retraction-is-finite H =
  is-decidable-map-retraction (has-decidable-equality-is-finite H)
  is-emb-retract-count :
    {l1 l2 : Level} {A : UU l1} {B : UU l2} (e : count B) (i : A  B) 
    retraction i  is-emb i
  is-emb-retract-count e i R =
    is-emb-is-injective (is-set-count e) (is-injective-retraction i R)

emb-retract-count :
  {l1 l2 : Level} {A : UU l1} {B : UU l2} (e : count B) (i : A  B) 
  retraction i  A  B
pr1 (emb-retract-count e i R) = i
pr2 (emb-retract-count e i R) = is-emb-retract-count e i R

decidable-emb-retract-count :
  {l1 l2 : Level} {A : UU l1} {B : UU l2} (e : count B) (i : A  B) 
  retraction i  A ↪ᵈ B
pr1 (decidable-emb-retract-count e i R) = i
pr1 (pr2 (decidable-emb-retract-count e i R)) = is-emb-retract-count e i R
pr2 (pr2 (decidable-emb-retract-count e i R)) =
  is-decidable-map-retraction-count e i R

count-retract :
  {l1 l2 : Level} {A : UU l1} {B : UU l2} 
  A retract-of B  count B  count A
count-retract (pair i R) e =
    ( equiv-total-fiber i)
    ( count-decidable-subtype
      ( decidable-subtype-decidable-emb (decidable-emb-retract-count e i R))
      ( e))

  is-finite-retract :
    {l1 l2 : Level} {A : UU l1} {B : UU l2}  A retract-of B 
    is-finite B  is-finite A
  is-finite-retract R = map-trunc-Prop (count-retract R)

Recent changes