subst hP
α : Type u_1
inst✝ : CompleteLattice α
s✝ x y z a b : α
s : Set α
P : Partition s
f : P.RepFun
hP : P = Partition.discrete s
⊢ ⇑f = id
α : Type u_1
inst✝ : CompleteLattice α
s✝ x y z a b : α
s : Set α
f : (Partition.discrete s).RepFun
⊢ ⇑f = id