fact: Definition mkFramePrev {n} {C: νType n}: FrameBlockPrev n.+1 mkprefix := {| frame' p (Hp: p.+1 <= n.+1) D := C.(Frame).(frame) (⇓ Hp) D.1; frame'' p (Hp: p.+2 <= n.+1) D := C.(FramePrev).(frame') (⇓ Hp) D.1; restrFrame' p q (Hpq: p.+2 <= q.+2) (Hq: q.+2 <= n.+1) (ε: arity) D d := C.(Frame).(restrFrame) (Hpq := ⇓ Hpq) (⇓ Hq) ε d; |}.
imports: Logic.FunctionalExtensionality Bonak(Notation) Bonak(RewLemmas) Bonak(HSet) Bonak(LeYoneda)