fact: Definition mkRestrLayer {n} {C: νType n} {p q} {Hpq: p.+2 <= q.+2} {Hq: q.+2 <= n.+1} {ε: arity} {Frame: FrameBlock n.+1 p mkprefix mkFramePrev} {D} (d: Frame.(frame) (↓ ↓ (Hpq ↕ Hq)) D) (l: mkLayer): C.(Layer) (Frame.(restrFrame) Hq ε d) := fun ω => rew [C.(PaintingPrev).(painting')] Frame.(cohFrame) d in C.(Painting).(restrPainting) (Hpq := ⇓ Hpq) (l ω).
imports: Logic.FunctionalExtensionality Bonak(Notation) Bonak(RewLemmas) Bonak(HSet) Bonak(LeYoneda)