(* Note: extended validity of a closure, height of cnv_appl > 1 *)
lemma cnv_extended (h) (p) (G) (L):
- â\88\80s. â¦\83G,L.â\93\9bâ\8b\86s.â\93\9bâ\93\9b{p}â\8b\86s.â\8b\86s.â\93\9b#0â¦\84 ⊢ ⓐ#2.#0 ![h,𝛚].
+ â\88\80s. â\9d¨G,L.â\93\9bâ\8b\86s.â\93\9bâ\93\9b[p]â\8b\86s.â\8b\86s.â\93\9b#0â\9d© ⊢ ⓐ#2.#0 ![h,𝛚].
#h #p #G #L #s
@(cnv_appl … 2 p … (⋆s) … (⋆s))
[ //
(* Note: restricted validity of the η-expanded closure, height of cnv_appl = 1 **)
lemma cnv_restricted (h) (p) (G) (L):
- â\88\80s. â¦\83G,L.â\93\9bâ\8b\86s.â\93\9bâ\93\9b{p}â\8b\86s.â\8b\86s.â\93\9bâ\93\9b{p}â\8b\86s.â\93\90#0.#1â¦\84 ⊢ ⓐ#2.#0 ![h,𝟐].
+ â\88\80s. â\9d¨G,L.â\93\9bâ\8b\86s.â\93\9bâ\93\9b[p]â\8b\86s.â\8b\86s.â\93\9bâ\93\9b[p]â\8b\86s.â\93\90#0.#1â\9d© ⊢ ⓐ#2.#0 ![h,𝟐].
#h #p #G #L #s
@(cnv_appl … 1 p … (⋆s) … (ⓐ#0.#2))
[ //