ι : Type u_1
M : ι → Type u_2
inst✝¹ : (i : ι) → Monoid (M i)
N : Type ?u.167807
inst✝ : Monoid N
C : FreeProduct M → Prop
m : FreeProduct M
h_one : C 1
h_of : ∀ (i : ι) (m : M i), C (↑of m)
h_mul : ∀ (x y : FreeProduct M), C x → C y → C (x * y)
S : Submonoid (FreeProduct M) :=
  { toSubsemigroup := { carrier := setOf C, mul_mem' := (_ : ∀ {a b : FreeProduct M}, C a → C b → C (a * b)) },
    one_mem' := h_one }
⊢ C m
ι : Type u_1
M : ι → Type u_2
inst✝¹ : (i : ι) → Monoid (M i)
N : Type ?u.167807
inst✝ : Monoid N
C : FreeProduct M → Prop
m : FreeProduct M
h_one : C 1
h_of : ∀ (i : ι) (m : M i), C (↑of m)
h_mul : ∀ (x y : FreeProduct M), C x → C y → C (x * y)
⊢ C m
let S : Submonoid (FreeProduct M) :=
  { carrier := setOf C
    mul_mem' := h_mul _ _
    one_mem' := h_one }
ι : Type u_1
M : ι → Type u_2
inst✝¹ : (i : ι) → Monoid (M i)
N : Type ?u.167807
inst✝ : Monoid N
C : FreeProduct M → Prop
m : FreeProduct M
h_one : C 1
h_of : ∀ (i : ι) (m : M i), C (↑of m)
h_mul : ∀ (x y : FreeProduct M), C x → C y → C (x * y)
S : Submonoid (FreeProduct M) :=
  { toSubsemigroup := { carrier := setOf C, mul_mem' := (_ : ∀ {a b : FreeProduct M}, C a → C b → C (a * b)) },
    one_mem' := h_one }
this : C ↑(↑(↑lift fun i => MonoidHom.codRestrict of S (_ : ∀ (m : M i), C (↑of m))) m)
⊢ C m
ι : Type u_1
M : ι → Type u_2
inst✝¹ : (i : ι) → Monoid (M i)
N : Type ?u.167807
inst✝ : Monoid N
C : FreeProduct M → Prop
m : FreeProduct M
h_one : C 1
h_of : ∀ (i : ι) (m : M i), C (↑of m)
h_mul : ∀ (x y : FreeProduct M), C x → C y → C (x * y)
S : Submonoid (FreeProduct M) :=
  { toSubsemigroup := { carrier := setOf C, mul_mem' := (_ : ∀ {a b : FreeProduct M}, C a → C b → C (a * b)) },
    one_mem' := h_one }
⊢ C m
have : C _ := Subtype.prop (lift (fun i => of.codRestrict S (h_of i)) m)
case h.e'_1
ι : Type u_1
M : ι → Type u_2
inst✝¹ : (i : ι) → Monoid (M i)
N : Type ?u.167807
inst✝ : Monoid N
C : FreeProduct M → Prop
m : FreeProduct M
h_one : C 1
h_of : ∀ (i : ι) (m : M i), C (↑of m)
h_mul : ∀ (x y : FreeProduct M), C x → C y → C (x * y)
S : Submonoid (FreeProduct M) :=
  { toSubsemigroup := { carrier := setOf C, mul_mem' := (_ : ∀ {a b : FreeProduct M}, C a → C b → C (a * b)) },
    one_mem' := h_one }
this : C ↑(↑(↑lift fun i => MonoidHom.codRestrict of S (_ : ∀ (m : M i), C (↑of m))) m)
⊢ m = ↑(↑(↑lift fun i => MonoidHom.codRestrict of S (_ : ∀ (m : M i), C (↑of m))) m)
ι : Type u_1
M : ι → Type u_2
inst✝¹ : (i : ι) → Monoid (M i)
N : Type ?u.167807
inst✝ : Monoid N
C : FreeProduct M → Prop
m : FreeProduct M
h_one : C 1
h_of : ∀ (i : ι) (m : M i), C (↑of m)
h_mul : ∀ (x y : FreeProduct M), C x → C y → C (x * y)
S : Submonoid (FreeProduct M) :=
  { toSubsemigroup := { carrier := setOf C, mul_mem' := (_ : ∀ {a b : FreeProduct M}, C a → C b → C (a * b)) },
    one_mem' := h_one }
this : C ↑(↑(↑lift fun i => MonoidHom.codRestrict of S (_ : ∀ (m : M i), C (↑of m))) m)
⊢ C m
convert this
case h.e'_1
ι : Type u_1
M : ι → Type u_2
inst✝¹ : (i : ι) → Monoid (M i)
N : Type ?u.167807
inst✝ : Monoid N
C : FreeProduct M → Prop
m : FreeProduct M
h_one : C 1
h_of : ∀ (i : ι) (m : M i), C (↑of m)
h_mul : ∀ (x y : FreeProduct M), C x → C y → C (x * y)
S : Submonoid (FreeProduct M) :=
  { toSubsemigroup := { carrier := setOf C, mul_mem' := (_ : ∀ {a b : FreeProduct M}, C a → C b → C (a * b)) },
    one_mem' := h_one }
this : C ↑(↑(↑lift fun i => MonoidHom.codRestrict of S (_ : ∀ (m : M i), C (↑of m))) m)
⊢ ↑(MonoidHom.id (FreeProduct M)) m =
    ↑(MonoidHom.comp (Submonoid.subtype S) (↑lift fun i => MonoidHom.codRestrict of S (_ : ∀ (m : M i), C (↑of m)))) m
case h.e'_1
ι : Type u_1
M : ι → Type u_2
inst✝¹ : (i : ι) → Monoid (M i)
N : Type ?u.167807
inst✝ : Monoid N
C : FreeProduct M → Prop
m : FreeProduct M
h_one : C 1
h_of : ∀ (i : ι) (m : M i), C (↑of m)
h_mul : ∀ (x y : FreeProduct M), C x → C y → C (x * y)
S : Submonoid (FreeProduct M) :=
  { toSubsemigroup := { carrier := setOf C, mul_mem' := (_ : ∀ {a b : FreeProduct M}, C a → C b → C (a * b)) },
    one_mem' := h_one }
this : C ↑(↑(↑lift fun i => MonoidHom.codRestrict of S (_ : ∀ (m : M i), C (↑of m))) m)
⊢ m = ↑(↑(↑lift fun i => MonoidHom.codRestrict of S (_ : ∀ (m : M i), C (↑of m))) m)
change MonoidHom.id _ m = S.subtype.comp _ m
case h.e'_1.e_a
ι : Type u_1
M : ι → Type u_2
inst✝¹ : (i : ι) → Monoid (M i)
N : Type ?u.167807
inst✝ : Monoid N
C : FreeProduct M → Prop
m : FreeProduct M
h_one : C 1
h_of : ∀ (i : ι) (m : M i), C (↑of m)
h_mul : ∀ (x y : FreeProduct M), C x → C y → C (x * y)
S : Submonoid (FreeProduct M) :=
  { toSubsemigroup := { carrier := setOf C, mul_mem' := (_ : ∀ {a b : FreeProduct M}, C a → C b → C (a * b)) },
    one_mem' := h_one }
this : C ↑(↑(↑lift fun i => MonoidHom.codRestrict of S (_ : ∀ (m : M i), C (↑of m))) m)
⊢ MonoidHom.id (FreeProduct M) =
    MonoidHom.comp (Submonoid.subtype S) (↑lift fun i => MonoidHom.codRestrict of S (_ : ∀ (m : M i), C (↑of m)))
case h.e'_1
ι : Type u_1
M : ι → Type u_2
inst✝¹ : (i : ι) → Monoid (M i)
N : Type ?u.167807
inst✝ : Monoid N
C : FreeProduct M → Prop
m : FreeProduct M
h_one : C 1
h_of : ∀ (i : ι) (m : M i), C (↑of m)
h_mul : ∀ (x y : FreeProduct M), C x → C y → C (x * y)
S : Submonoid (FreeProduct M) :=
  { toSubsemigroup := { carrier := setOf C, mul_mem' := (_ : ∀ {a b : FreeProduct M}, C a → C b → C (a * b)) },
    one_mem' := h_one }
this : C ↑(↑(↑lift fun i => MonoidHom.codRestrict of S (_ : ∀ (m : M i), C (↑of m))) m)
⊢ ↑(MonoidHom.id (FreeProduct M)) m =
    ↑(MonoidHom.comp (Submonoid.subtype S) (↑lift fun i => MonoidHom.codRestrict of S (_ : ∀ (m : M i), C (↑of m)))) m
congr
case h.e'_1.e_a.h.h
ι : Type u_1
M : ι → Type u_2
inst✝¹ : (i : ι) → Monoid (M i)
N : Type ?u.167807
inst✝ : Monoid N
C : FreeProduct M → Prop
m : FreeProduct M
h_one : C 1
h_of : ∀ (i : ι) (m : M i), C (↑of m)
h_mul : ∀ (x y : FreeProduct M), C x → C y → C (x * y)
S : Submonoid (FreeProduct M) :=
  { toSubsemigroup := { carrier := setOf C, mul_mem' := (_ : ∀ {a b : FreeProduct M}, C a → C b → C (a * b)) },
    one_mem' := h_one }
this : C ↑(↑(↑lift fun i => MonoidHom.codRestrict of S (_ : ∀ (m : M i), C (↑of m))) m)
i : ι
x✝ : M i
⊢ ↑(MonoidHom.comp (MonoidHom.id (FreeProduct M)) of) x✝ =
    ↑(MonoidHom.comp
          (MonoidHom.comp (Submonoid.subtype S)
            (↑lift fun i => MonoidHom.codRestrict of S (_ : ∀ (m : M i), C (↑of m))))
          of)
      x✝
case h.e'_1.e_a
ι : Type u_1
M : ι → Type u_2
inst✝¹ : (i : ι) → Monoid (M i)
N : Type ?u.167807
inst✝ : Monoid N
C : FreeProduct M → Prop
m : FreeProduct M
h_one : C 1
h_of : ∀ (i : ι) (m : M i), C (↑of m)
h_mul : ∀ (x y : FreeProduct M), C x → C y → C (x * y)
S : Submonoid (FreeProduct M) :=
  { toSubsemigroup := { carrier := setOf C, mul_mem' := (_ : ∀ {a b : FreeProduct M}, C a → C b → C (a * b)) },
    one_mem' := h_one }
this : C ↑(↑(↑lift fun i => MonoidHom.codRestrict of S (_ : ∀ (m : M i), C (↑of m))) m)
⊢ MonoidHom.id (FreeProduct M) =
    MonoidHom.comp (Submonoid.subtype S) (↑lift fun i => MonoidHom.codRestrict of S (_ : ∀ (m : M i), C (↑of m)))
ext i
no goals
case h.e'_1.e_a.h.h
ι : Type u_1
M : ι → Type u_2
inst✝¹ : (i : ι) → Monoid (M i)
N : Type ?u.167807
inst✝ : Monoid N
C : FreeProduct M → Prop
m : FreeProduct M
h_one : C 1
h_of : ∀ (i : ι) (m : M i), C (↑of m)
h_mul : ∀ (x y : FreeProduct M), C x → C y → C (x * y)
S : Submonoid (FreeProduct M) :=
  { toSubsemigroup := { carrier := setOf C, mul_mem' := (_ : ∀ {a b : FreeProduct M}, C a → C b → C (a * b)) },
    one_mem' := h_one }
this : C ↑(↑(↑lift fun i => MonoidHom.codRestrict of S (_ : ∀ (m : M i), C (↑of m))) m)
i : ι
x✝ : M i
⊢ ↑(MonoidHom.comp (MonoidHom.id (FreeProduct M)) of) x✝ =
    ↑(MonoidHom.comp
          (MonoidHom.comp (Submonoid.subtype S)
            (↑lift fun i => MonoidHom.codRestrict of S (_ : ∀ (m : M i), C (↑of m))))
          of)
      x✝
rfl