fact: Definition mkLayer {n} {C: νType n} {p} {Hp: p.+1 <= n.+1} {Frame: FrameBlock n.+1 p mkprefix mkFramePrev} {D} {d: Frame.(frame) (↓ Hp) D}: HSet := hforall ε, C.(Painting).(painting) D.2 (Frame.(restrFrame) (Hpq := ♢ _) Hp ε d).
imports: Logic.FunctionalExtensionality Bonak(Notation) Bonak(RewLemmas) Bonak(HSet) Bonak(LeYoneda)