\开始{code}{-# 选项--不带-K#-}
模块 广义赫德伯格 哪里
打开 进口 小型实验室\结束{code}
\开始{code}类型 = 设置
类型₁ = 设置₁\结束{code}
\开始{code}hprop（高性能提升） : 类型 → 类型
hprop（高性能提升） X（X） = (x个 年 : X（X）) → x个 ≡ 年\结束{code}
\开始{code}∅-is支柱 : hprop（高性能提升） ∅
∅-is支柱 x个 年 = ∅-elim x个\结束{code}\开始{code}hset（高速设置） : 类型 → 类型
hset（高速设置） X（X） = {x个 年 : X（X）} → hprop（高性能提升）(x个 ≡ 年)\结束｛代码｝
\开始{code}常数 : {X（X） Y（Y） : 类型} → (X（X） → Y（Y）) → 类型
常数 {X（X）} {Y（Y）} （f） = (x个 年 : X（X）) → （f） x个 ≡ （f） 年
可折叠的 : 类型 → 类型
可折叠的 X（X） = Σ \(（f） : X（X） → X（X）) → 常数 （f）
路径可压缩的 : 类型 → 类型
路径可压缩的 X（X） = {x个 年 : X（X）} → 可折叠的(x个 ≡ 年)\结束{code}
\开始{code}hset-is-path-collapsible : {X（X） : 类型} → hset（高速设置） X（X） → 路径可折叠 X（X）
hset-is-path-collapsible 单位 = (身份证件 , 单位)
路径冲突-is-hset : {X（X） : 类型} → 路径可压缩的 X（X） → hset（高速设置） X（X）
路径冲突-is-hset {X（X）} 个人电脑 第页 q个 = 声称₂
哪里
（f） : {x个 年 : X（X）} → x个 ≡ 年 → x个 ≡ 年
（f） = π₀ 个人电脑
克 : {x个 年 : X（X）} (第页 q个 : x个 ≡ 年) → （f） 第页 ≡ （f） q个
克 = π₁ 个人电脑
声称₀ : {x个 年 : X（X）} (第页 : x个 ≡ 年) → 第页 ≡ (（f） 回流)⁻¹ • (（f） 第页)
声称₀ = J型 (λ 第页 → 第页 ≡ ((（f） 回流)年¹) • (（f） 第页)) (sym-is-in-verse（对称-反向）(（f） 回流))
声称₁ : (（f） 回流)⁻¹ • (（f） 第页) ≡ (（f） 回流)⁻¹ • (（f） q个)
声称₁ = 应用程序 （λ 小时 → (（f） 回流)⁻¹ • 小时) (克 第页 q个)
声称₂ : 第页 ≡ q个
声称₂ = (声称₀ 第页) • 声称₁ • (声称₀ q个)⁻¹\结束{code}
\开始{code}hprop-is路径可压缩 : {X（X） : 类型} → hprop（高性能提升） X（X） → 路径可压缩的 X（X）
hprop-is路径可压缩 小时 {x个} {年} = ((λ 第页 → 小时 x个 年) , (λ 第页 q个 → 回流))
hprop-is-hset型 : {X（X） : 类型} → hprop（高性能提升） X（X） → hset（高速设置） X（X）
hprop-is-hset型 小时 = 路径冲突-is-hset(hprop-is路径可压缩 小时)\结束｛代码｝
\开始{code}∅-可压缩 : 可折叠的 ∅
∅-可压缩 = (λ x个 → x个) , （λ x个 → λ ())
有人居住的 : 类型 → 类型
有人居住的 X（X） = X（X）
居住-可折叠 : {X（X） : 类型} → 有人居住的 X（X） → 可折叠的 X（X）
居住-可折叠 x个 = ((λ 年 → x个) , λ 年 是的' → 回流)\结束｛代码｝
\开始{code}空的 : 类型 → 类型
空的 X（X） = 有人居住的(X（X） → ∅)
可空置的 : {X（X） : 类型} → 空的 X（X） → 可折叠的 X（X）
可空置的 单位 = (身份证件 , (λ x个 x’ → ∅-埃利姆(单位 x个)))
∅-特殊情况下的可压溃性 : 可折叠的 ∅
∅-特殊情况下的可压溃性 = 可空置的 身份证件\结束{code}
\开始｛代码｝可判定的 : 类型 → 类型
可判定的 X（X） = 有人居住的 X（X） + 空的 X（X）
可判定i可折叠 : {X（X） : 类型} → 可判定的 X（X） → 可折叠的 X（X）
可判定i可折叠 (在里面₀ x个) = 居住-可折叠 x个
可判定i可折叠 (在里面₁ 单位) = 可空置的 单位
相对长度单位 : 类型₁
相对长度单位 = (X（X） : 类型) → 可判定的 X（X）
所有类型——EM下可压溃 : 相对长度单位 → (X（X） : 类型) → 可折叠的 X（X）
所有类型——EM下可压溃 电磁阀 X（X） = 可判定i可折叠 (电磁阀 X（X）)
所有类型-are-hsets-under-EM : 相对长度单位 → (X（X） : 类型) → hset（高速设置） X（X）
所有类型都是EM下的hset 电磁阀 X（X） = 路径冲突-is-hset(λ {x个} {年} → 所有类型——EM下可压溃 电磁阀 (x个 ≡ 年))\结束{code}
\开始{code}离散的 : 类型 → 类型
离散的 X（X） = {x个 年 : X（X）} → 可判定的(x个 ≡ 年)
离散路径可折叠 : {X（X） : 类型} → 离散的 X（X） → 路径可压缩的 X（X）
离散路径可折叠 d日 = 可判定i可折叠 d日\结束{code}
\开始{code}离散is-hset : {X（X） : 类型} → 离散的 X（X） → hset（高速设置） X（X）
离散is-hset d日 = 路径冲突-is-hset(离散是路径可折叠的 d日)\结束{code}
\开始{code}非空的 : 类型 → 类型
非空的 X（X） = 空的(空的 X（X）)
稳定的 : 类型 → 类型
稳定的 X（X） = 非空的 X（X） → 有人居住的 X（X）
可判定is-稳定 : {X（X） : 类型} → 可判定的 X（X） → 稳定的 X（X）
可判定is-稳定 (在里面₀ x个) φ = x个
可判定is-稳定 (在里面₁ 单位) φ = ∅-埃利姆(φ 单位)
分开的 : 类型 → 类型
分开的 X（X） = {x个 年 : X（X）} → 稳定的(x个 ≡ 年)
离散的是分离的 : {X（X） : 类型} → 离散的 X（X） → 分开的 X（X）
离散-is-separated {X（X）} d日 = 可判定is-稳定 d日\结束{code}
\开始{code}funext（复数） : 类型 → 类型 → 类型
funext（复数） X（X） Y（Y） = {（f） 克 : X（X） → Y（Y）} → ((x个 : X（X）) → （f） x个 ≡ 克 x个) → （f） ≡ 克
funext-special-case₀ : 类型 → 类型
funext-special-case₀ X（X） = funext（复数） (空的 X（X）) ∅
马厩-可折叠 : {X（X） : 类型} → funext特殊情况₀ X（X） → 稳定的 X（X） → 可折叠的 X（X）
马厩-可折叠 {X（X）} e（电子） 秒 = (（f） , 克)
哪里
（f） : X（X） → X（X）
（f） x个 = 秒(λ 单位 → 单位 x个)
声称₀ : (x个 年 : X（X）) → (单位 : 空的 X（X）) → 单位 x个 ≡ 单位 年
声称₀ x个 年 单位 = ∅-埃利姆(单位 x个)
声称₁ : (x个 年 : X（X）) → (λ 单位 → 单位 x个) ≡ (λ 单位 → 单位 年)
声称₁ x个 年 = e（电子） (声称₀ x个 年)
克 : (x个 年 : X（X）) → （f） x个 ≡ （f） 年
克 x个 年 = 应用程序 秒 (声称₁ x个 年)
funext-special-case₁ : 类型 → 类型
funext-special-case₁ X（X） = {x个 年 : X（X）} → funext-special-case₀(x个 ≡ 年)
分离是路径可折叠的 : {X（X） : 类型} → funext-special-case₁ X（X） → 分开的 X（X） → 路径可压缩的 X（X）
分离的is-path-collapsible e（电子） 秒 = 马厩-可折叠 e（电子） 秒\结束{code}
\开始{code}分离-is-hset : {X（X） : 类型} → funext-special-case₁ X（X） → 分开的 X（X） → hset（高速设置） X（X）
分离-is-hset e（电子） 秒 = 路径冲突-is-hset(分离的is-path-collapsible e（电子） 秒)\结束{code}
\开始{code}假设 居住在中国的 : 类型 → 类型
假设 hprop习惯 : {X（X） : 类型} → hprop（高性能提升）(居住在中国的 X（X）)
假设 η : {X（X） : 类型} → X（X） → 居住在中国的 X（X）
假设 华裔穆斯林 : (X（X） P（P） : 类型) → hprop（高性能提升） P（P） → (X（X） → P（P）) → (居住在中国的 X（X） → P（P）)
假设 习惯性ind : {X（X） : 类型} {P（P） : 居住在中国的 X（X） → 类型} → ((秒 : 居住在中国的 X（X）) → hprop（高性能提升）(P（P） 秒)) → ((x个 : X（X）) → P（P） (η x个)) → (秒 : 居住在中国的 X（X）) → P（P） 秒\结束{code}
\开始{code}习惯的₁ : 类型 → 类型₁
居住在中国的₁ X（X） = (P（P） : 类型) → hprop（高性能提升） P（P） → (X（X） → P（P）) → P（P）\结束{code}
\开始{code}欣喜德elim' : (X（X） : 类型) → 居住在中国的 X（X） → 居住在中国的₁ X（X）
中国人居住的地方 X（X） 第页 P（P） （f） 克 = 华裔穆斯林 X（X） P（P） （f） 克 第页
中国式英语-converse : (X（X） : 类型) → 居住在中国的₁ X（X） → 习惯的 X（X）
中国式英语-converse X（X） （f） = （f） (居住在中国的 X（X）) hprop居住 η
hs表 : 类型 → 类型
hs表 X（X） = 居住在中国的 X（X） → 有人居住的 X（X）
hs分离 : 类型 → 类型
hs分离 X（X） = {x个 年 : X（X）} → hs表(x个 ≡ 年)\结束{code}
\开始{code}居住-我-居住 : {X（X） : 类型} → 有人居住的 X（X） → 居住在中国的 X（X）
居住的，我居住的 = η
中国人-非空 : {X（X） : 类型} → 居住在中国的 X（X） → 非空的 X（X）
中国人-非空 {X（X）} 一 单位 = 习惯性elim X（X） ∅ ∅-is支柱 单位 一\结束{code}\开始{code}stable-is-hs稳定 : {X（X） : 类型} → 稳定的 X（X） → hs表 X（X）
stable-is-hs稳定 {X（X）} 秒 一 = 秒(中国人-非空 一)
分离-is-hs分离 : {X（X） : 类型} → 分开的 X（X） → hsepated公司 X（X）
分离-is-hs分离 秒 一 = 秒(中国人-非空 一)\结束{code}
\开始{code}hstable是可折叠的 : {X（X） : 类型} → hs表 X（X） → 可折叠的 X（X）
hstable-is可折叠 {X（X）} 秒 = (（f） , 克)
哪里
（f） : X（X） → X（X）
（f） x个 = 秒(η x个)
声称₀ : (x个 年 : X（X）) → η x个 ≡ η 年
声称₀ x个 年 = hprop居住 (η x个) (η 年)
克 : (x个 年 : X（X）) → （f） x个 ≡ （f） 年
克 x个 年 = 应用程序 秒 (声称₀ x个 年)
hs分离-即付-可贴现 : {X（X） : 类型} → hs分离 X（X） → 路径可压缩的 X（X）
hs分离-即付-可贴现 秒 = hstable-is可折叠 秒\结束{code}
\开始{code}hs分离即设置 : {X（X） : 类型} → hs分离 X（X） → hset（高速设置） X（X）
hs分离即设置 秒 = 路径冲突-is-hset(hs分离-即付-可贴现 秒)\结束{code}
\开始{code}hprop-is-hs表 : {X（X） : 类型} → hprop（高性能提升） X（X） → hs表 X（X）
hprop-is-hs表 {X（X）} 小时 一 = 华裔穆斯林 X（X） X（X） 小时 身份证件 一
hset-is-hs分离 : {X（X） : 类型} → hset（高速设置） X（X） → hsepated公司 X（X）
hset-is-hs分离 小时 一 = hprop-is-hs表 小时 一\结束{code}
\开始{code}₂-离散的 : 离散的 ₂
₂-离散的 {₀} {₀} = 在里面₀ 回流
₂-离散的 {₀} {₁} = 在里面₁(λ())
₂-离散的 {₁} {₀} = 在里面₁(λ())
₂-离散的 {₁} {₁} = 在里面₀ 回流
完全分开的 : 类型 → 类型
完全分开的 X（X） = {x个 年 : X（X）} → ((第页 : X（X） → ₂) → 第页 x个 ≡ 第页 年) → x个 ≡ 年
家属-家属 : 类型₁
家属-家属 = {X（X） : 类型} {Y（Y） : X（X） → 类型} {（f） 克 : (x个 : X（X）) → Y（Y） x个} → ((x个 : X（X）) → （f） x个 ≡ 克 x个) → （f） ≡ 克
完全分离是hset : 家属-家属 → (X（X） : 类型) → 完全分开的 X（X） → hset（高速设置） X（X）
完全分离的is-hset 判定元件 X（X） t吨 = 路径冲突-is-hset 小时
哪里
（f） : {x个 年 : X（X）} → x个 ≡ 年 → x个 ≡ 年
（f） 第页 = t吨(λ 第页 → 应用程序 第页 第页)
b : {x个 年 : X（X）} (φ γ : (第页 : X（X） → ₂) → 第页 x个 ≡ 第页 年) → φ ≡ γ
b φ γ = 判定元件（λ 第页 → 离散is-hset ₂-离散的 (φ 第页) (γ 第页))
c : {x个 年 : X（X）} (第页 秒 : x个 ≡ 年) → (λ 第页 → 应用程序 第页 第页) ≡ (λ 第页 → 应用程序 第页 秒)
c 第页 秒 = b(λ 第页 → 应用程序 第页 第页) (λ 第页 → 应用程序 第页 秒)
克 : {x个 年 : X（X）} → 常数(（f） {x个} {年})
克 第页 秒 = 应用程序 t吨 (c 第页 秒)
小时 : 路径可压缩的 X（X）
小时 {x个} {年} = （f） , 克\结束{code}
\开始{code}反阳性 : {R（右） X（X） Y（Y） : 类型} → (X（X） → Y（Y）) → (Y（Y） → R（右）) → (X（X） → R（右）)
反阳性 （f） 第页 x个 = 第页(（f） x个)
₂-分开的 : 分开的 ₂
₂-分开的 = 离散-is-separated ₂-离散的
总分离-分离 : {X（X） : 类型} → 完全分开的 X（X） → 分开的 X（X）
总分离-分离 {X（X）} t吨 {x个} {年} φ = t吨 小时
哪里
一 : (第页 : X（X） → ₂) → 非空的(第页 x个 ≡ 第页 年)
一 第页 = φ ∘ 反阳性(应用程序 第页)
小时 : (第页 : X（X） → ₂) → 第页 x个 ≡ 第页 年
小时 第页 = ₂-分开的(一 第页)
“totaly-separated-is-hset” : {X（X） : 类型} → funext-special-case₁ X（X） → 完全分开的 X（X） → hset（高速设置） X（X）
“totaly-separated-is-hset” e（电子） t吨 = 分离-is-hset e（电子） (总分离-分离 t吨)\结束{code}
\开始{code}内射的 : {X（X） Y（Y） : 类型} → (（f） : X（X） → Y（Y）) → 类型
内射的 {X（X）} （f） = {x个 x’ : X（X）} → （f） x个 ≡ （f） x’ → x个 ≡ x’
hset亚型 : {X（X） Y（Y） : 类型} (米 : X（X） → Y（Y）) → 内射的 米 → hset公司 Y（Y） → hset（高速设置） X（X）
hset亚型 {X（X）} 米 我 小时 = 路径冲突-is-hset(（f） , 克)
哪里
（f） : {x个 x’ : X（X）} → x个 ≡ x’ → x个 ≡ x’
（f） 第页 = 我(应用程序 米 第页)
克 : {x个 x’ : X（X）} (第页 秒 : x个 ≡ x’) → （f） 第页 ≡ （f） 秒
克 第页 秒 = 应用程序 我 (小时 (应用程序 米 第页) (应用程序 米 秒))
π₀-内射的 : {X（X） : 类型} {Y（Y） : X（X） → 类型} → ({x个 : X（X）} → hprop（高性能提升）(Y（Y） x个)) → 内射的 π₀
π₀-内射的 {X（X）} {Y（Y）} （f） {单位} {v（v）} 第页 = 引理 第页 (π₁ 单位) (π₁ v（v）) (（f）(运输 {X（X）} {Y（Y）} 第页 (π₁ 单位)) (π₁ v（v）))
哪里
A类 : {x个 x’ : X（X）} → x个 ≡ x’ → 类型
A类 {x个} {x’} 第页 = (年 : Y（Y） x个) (是的' : Y（Y） x’) → 运输 第页 年 ≡ 是的' → (x个 , 年) ≡ (x’ , 是的')
引理 : {x个 x’ : X（X）} (第页 : x个 ≡ x’) → A类 {x个} {x’} 第页
引理 = J型 A类 (λ {x个} x’ 年 → 应用程序 (λ 年 → (x个 , 年)))
子集-is-hset : (X（X） : 类型) (Y（Y） : X（X） → 类型) → hset（高速设置） X（X） → ({x个 : X（X）} → 高压液滴(Y（Y） x个)) → hset（高速设置）(Σ \(x个 : X（X）) → Y（Y） x个)
子集-is-hset X（X） Y（Y） 小时 第页 = hset亚型 π₀ (π₀-内射的 第页) 小时\结束{code}
\开始{code}修理 : {X（X） : 类型} → (（f） : X（X） → X（X）) → 类型
修理 （f） = Σ \x个 → x个 ≡ （f） x个\结束{code}
\开始{code}克劳斯·勒玛₀ : {X（X） Y（Y） : 类型} (（f） : X（X） → Y（Y）) (克 : 常数 （f）) {x个 年 : X（X）} (第页 : x个 ≡ 年) → 应用程序 （f） 第页 ≡ (克 x个 x个)⁻¹ • (克 x个 年)
克劳斯·勒玛₀ （f） 克 {x个} {年} = J型 (λ {x个} {年} 第页 → 应用程序 （f） 第页 ≡ (克 x个 x个)⁻¹ • (克 x个 年)) (λ {x个} → sym-is-in-verse（对称-反向）(克 x个 x个))
克劳斯·勒玛₁ : {X（X） Y（Y） : 类型} (（f） : X（X） → Y（Y）) → 常数 （f） → {x个 : X（X）} (第页 : x个 ≡ x个) → 应用程序 （f） 第页 ≡ 回流
克劳斯引理₁ （f） 克 第页 = (克劳斯·勒玛₀ （f） 克 第页) • ((sym-is-in-verse（对称-反向）(克 _ _))⁻¹)\结束{code}
\开始｛代码｝运输通道-沿线通道 : {X（X） Y（Y） : 类型} {x个 年 : X（X）} (第页 : x个 ≡ 年) (小时 k个 : X（X） → Y（Y）) (q个 : 小时 x个 ≡ k个 x个)
→ 运输 第页 q个 ≡ (应用程序 小时 第页)⁻¹ • q个 • (应用程序 k个 第页)
运输通道-沿线通道 {X（X）} {Y（Y）} {x个} 第页 小时 k个 q个 =
J’ x个 (λ 第页 → 运输 第页 q个 ≡ ((应用程序 小时 第页)⁻¹) • q个 • (应用程序 k个 第页)) (refl是正确的id q个) 第页
运输通道-沿线通道 : {X（X） : 类型} {x个 : X（X）} (第页 : x个 ≡ x个) (（f） : X（X） → X（X）) (q个 : x个 ≡ （f） x个)
→ 运输 {X（X）} {λ z（z） → z（z） ≡ （f） z（z）} 第页 q个 ≡ 第页 ⁻¹ • q个 • (应用程序 （f） 第页)
运输通道-沿线通道 {X（X）} {x个} 第页 （f） q个 =
(运输通道-沿线通道 第页 (λ z（z） → z（z）) （f） q个) • (应用程序 (λ 公共关系 → 公共关系 ⁻¹ • q个 • (应用程序 （f） 第页)) ((ap-id-is-id 第页)⁻¹))\结束{code}\开始{code}克劳斯·勒玛 : {X（X） : 类型} (（f） : X（X） → X（X）) → 常数 （f） → hprop（高性能提升）(修理 （f）)
克劳斯·勒玛 {X（X）} （f） 克 (x个 , 第页) (年 , q个) =
(x个 , 第页) ≡⟨ Σ-≡ x个 年 第页 p’ 第页 回流 ⟩
(年 , p’) ≡⟨ Σ-≡ 年 年 p’ q个 秒 t吨 ⟩∎
(年 , q个) ∎
哪里
第页 : x个 ≡ 年
第页 = x个 ≡⟨ 第页 ⟩
（f） x个 ≡⟨ 克 x个 年 ⟩
（f） 年 ≡⟨ q个 年¹ ⟩∎
年 ∎
p’ : 年 ≡ （f） 年
p’ = 运输 第页 第页
秒 : 年 ≡ 年
秒 = 年 ≡⟨ p’ ⟩
（f） 年 ≡⟨ q个 年¹ ⟩∎
年 ∎
q’ : 年 ≡ （f） 年
q’ = 运输 {X（X）} {λ 年 → 年 ≡ （f） 年} 秒 p’
t吨 : q’ ≡ q个
t吨 = q’ ≡⟨ 运输通道-沿线通道 秒 （f） p’ ⟩
秒 ⁻¹ • (p’ • 应用程序 （f） 秒) ≡⟨ 应用程序 (λ 公共关系 → 秒 ⁻¹ • (p’ • 公共关系)) (克劳斯·勒玛₁ （f） 克 秒) ⟩
秒 ⁻¹ • (p’ • 回流) 选择⟨ 应用程序 (λ 公共关系 → 秒 ⁻¹ • 公共关系) ((ref-is-right-id p’)⁻¹) ⟩
秒 ⁻¹ • p’ ≡⟨ 回流 ⟩
(p’ • (q个 ⁻¹))⁻¹ • p’ ≡⟨ 应用程序 (λ 公共关系 → 公共关系 • p’) ((对称反式 p’ (q个 ⁻¹))⁻¹) ⟩
((q个 ⁻¹)⁻¹ • (p’ ⁻¹)) • p’ ≡⟨ 应用程序 (λ 公共关系 → (公共关系 • (p’ ⁻¹)) • p’) ((sym-sym-平凡 q个)⁻¹) ⟩
(q个 • (p’ ⁻¹)) • p’ ≡⟨ 跨东盟 q个 (p’ ⁻¹) p’ ⟩
q个 • ((p’ ⁻¹) • p’) ≡⟨ 应用程序 (λ 公共关系 → q个 • 公共关系) ((sym-is-in-verse（对称-反向） p’)年¹) ⟩
q个 • 回流 ≡⟨ (ref-is-right-id q个)⁻¹ ⟩∎
q个 ∎\结束{code}\开始{code}从fix : {X（X） : 类型} (（f） : X（X） → X（X）) → 修理 （f） → X（X）
从fix （f） = π₀
修复 : {X（X） : 类型} (（f） : X（X） → X（X）) → 常数 （f） → X（X） → 修理 （f）
修复 （f） 克 x个 = (（f） x个 , 克 x个 (（f） x个))
可折叠-is-hs稳定 : {X（X） : 类型} → 可折叠的 X（X） → hs表 X（X）
可折叠-is-hs稳定 {X（X）} (（f） , 克) 你好 = 从fix （f） 我
哪里
小时 : X（X） → 修理 （f）
小时 = 修复 （f） 克
k个 : 居住在中国的 X（X） → 修理 （f）
k个 = 华裔穆斯林 X（X） (修理 （f）) (克劳斯·勒玛 （f） 克) 小时
我 : 修理 （f）
我 = k个 你好\结束{code}
\开始{code}密集的₁ : 类型 → 类型₁
密集的₁ X（X） = (P（P） : 类型) → 高压液滴 P（P） → (P（P） → X（X）) → (X（X） → P（P）) → P（P）
居住在中国的居民₁ : {X（X） : 类型} → 居住在中国的 X（X） → 密集的₁ X（X）
居住在中国的居民₁ {X（X）} 你好 P（P） 小时 一 b = 华裔穆斯林 X（X） P（P） 小时 b 你好
密集的¦Β-居住在地下 : {X（X） : 类型} → hs表 X（X） → 密集的₁ X（X） → 居住在中国的 X（X）
密集的₁-居住在地下 {X（X）} 秒 采购订单 = 采购订单 (居住在中国的 X（X）) hprop居住 秒 η\结束{code}
\开始{code}密集的₁-是虚无的 : {X（X） : 类型} → 已填充₁ X（X） → 非空的 X（X）
密集的₁-是虚无的 第页 = 第页 ∅ (∅-is支柱) ∅-埃利姆\结束｛代码｝
\开始{code}D类 : 类型 → 类型
D类 X（X） = 可折叠的 X（X） → X（X）
密集的₁-是-D : {X（X） : 类型} → 密集的₁ X（X） → D类 X（X）
密集的₁-是-D {X（X）} 第页 (（f） , 克) = 从fix （f） (第页 (修理 （f）) (克劳斯·勒玛 （f） 克) (从fix （f）) (修复 （f） 克))
D-is填充₁ : {X（X） : 类型} → D类 X（X） → 已填充₁ X（X）
D-is填充₁ {X（X）} d日 P（P） 小时 一 b = b x个
哪里
（f） : X（X） → X（X）
（f） x个 = 一(b x个)
克 : 常数 （f）
克 x个 年 = 应用程序 一 (小时 (b x个) (b 年))
x个 : X（X）
x个 = d日(（f） , 克)\结束{code}\开始{code}可折叠-is-hstable-bis : {X（X） : 类型} → 可折叠的 X（X） → hs表 X（X）
可折叠-is-hstable-bis c 你好 = 密集的¦Β-是-D (居住在中国的居民₁ 你好) c\结束{code}
\开始{code}路径可折叠是hset bis : {X（X） : 类型} → 路径可压缩的 X（X） → hset（高速设置） X（X）
路径冲突-is-hset-bis c = hs分离即设置(可折叠-is-hs稳定 c)\结束{code}
\开始{code}双向组合 : {X（X） : 类型} → ((密集的₁ X（X） → X（X）) → X（X）) → 密集的₁ X（X）
双向组合 {X（X）} 假设 = D-is填充₁ 事实₁
哪里
事实₀ : 可折叠的 X（X） → (密集的₁ X（X） → X（X）)
事实₀ c 第页 = 密集的₁-是-D 第页 c
事实₁ : D类 X（X）
事实₁ c = 假设(事实₀ c)
双向复合反转 : {X（X） : 类型} → 已填充₁ X（X） → ((密集的₁ X（X） → X（X）) → X（X）)
双向复合反转 第页 单位 = 单位 第页
双向组合bis : {X（X） : 类型} → ((居住在中国的 X（X） → X（X）) → X（X）) → 密集的₁ X（X）
双向组合bis {X（X）} 假设 = D-is填充₁(λ c → 假设(可折叠-is-hs稳定 c))\结束｛代码｝
\开始{code}假设 funext-special-case₂ : {X（X） : 类型} → funext（复数） (可折叠的 X（X）) X（X）
φ : (X（X） : 类型) → D类 X（X） → D类 X（X）
φ X（X） 小时 (（f） , 克) = （f）(小时(（f） , 克))\结束{code}
\开始{code}φ-常数 : (X（X） : 类型) → 常数(φ X（X）)
φ-常数 X（X） 小时 k个 = funext-special-case₂(声称₁ 小时 k个)
哪里
声称₀ : (小时 k个 : D类 X（X）) → (（f） : X（X） → X（X）) → (克 : 常数 （f）) → φ X（X） 小时 (（f） , 克) ≡ φ X（X） k个 (（f） , 克)
声称₀ 小时 k个 （f） 克 = 克 (小时(（f） , 克)) (k个(（f） , 克))
声称₁ : (小时 k个 : D类 X（X）) → (c : 可折叠的 X（X）) → φ X（X） 小时 c ≡ φ X（X） k个 c
声称₁ 小时 k个 (（f） , 克) = 声称₀ 小时 k个 （f） 克
已填充 : 类型 → 类型
密集的 X（X） = 修理(φ X（X）)
hprop填充 : (X（X） : 类型) → hprop（高性能提升）(密集的 X（X）)
hprop填充 X（X） = 克劳斯·勒玛 (φ X（X）) (φ-常数 X（X）)
填充-is-D : {X（X） : 类型} → 密集的 X（X） → D类 X（X）
填充-is-D {X（X）} = 从fix (φ X（X）)
D-is填充 : {X（X） : 类型} → D类 X（X） → 密集的 X（X）
D-is填充 {X（X）} = 修复 (φ X（X）) (φ-常数 X（X）)
已填充已填充₁ : {X（X） : 类型} → 密集的 X（X） → 密集的₁ X（X）
人口-人口₁ 采购订单 = D-is填充₁(填充-is-D 采购订单)
密集的₁-已填充 : {X（X） : 类型} → 密集的₁ X（X） → 密集的 X（X）
密集的₁-已填充 采购订单 = D-is填充(密集的₁-是-D 采购订单)\结束{code}
\开始{code}居住的居民 : {X（X） : 类型} → X（X） → 密集的 X（X）
居住的居民 {X（X）} x个 = D-is填充 (λ c → x个)
已填充为非空 : {X（X） : 类型} → 密集的 X（X） → 非空的 X（X）
填充-is非空 {X（X）} (（f） , 克) 单位 = 单位(（f）(小时 , h常数))
哪里
小时 : X（X） → X（X）
小时 = ∅-埃利姆 ∘ 单位
h常数 : (x个 年 : X（X）) → 小时 x个 ≡ 小时 年
h常数 x个 年 = ∅-埃利姆(单位 x个)\结束{code}
\开始{code}中国人居住的地区 : {X（X） Y（Y） : 类型} → (X（X） → 居住在中国的 Y（Y）) → (习惯的 X（X） → 居住在中国的 Y（Y）)
中国人居住的地区 {X（X）} {Y（Y）} （f） 第页 = 华裔穆斯林 X（X） (居住在中国的 Y（Y）) hprop居住 （f） 第页\结束{code}
\开始{code}克莱斯利定律₀ : {X（X） : 类型} (第页 : 居住在中国的 X（X）) → 中国人居住的地区 η 第页 ≡ 第页
克莱斯利定律₀ 第页 = hprop居住 (习惯延伸 η 第页) 第页
克莱斯利定律₁ : {X（X） Y（Y） : 类型} → (（f） : X（X） → 居住在中国的 Y（Y）) → (x个 : X（X）) → (中国人居住的地区 （f）)(η x个) ≡ （f） x个
克莱斯利定律₁ {X（X）} {Y（Y）} （f） x个 = hprop居住 ((中国人居住的地区 （f）)(η x个)) (（f） x个)
克莱斯利定律₂ : {X（X） Y（Y） Z轴 : 类型} → (（f） : X（X） → 居住在中国的 Y（Y）) → (克 : Y（Y） → 居住在中国的 Z轴) → (第页 : 居住在中国的 X（X）) →
中国人居住的地区((中国人居住的地区 克) ∘ （f）) 第页 ≡ (中国人居住的地区 克)(中国人居住的地区 （f） 第页)
克莱斯利定律₂ （f） 克 第页 =
hprop居住 (中国人居住的地区((中国人居住的地区 克) ∘ （f）) 第页) ((中国人居住的地区 克)(中国人居住的地区 （f） 第页))\结束｛代码｝
\开始{code}居住在中国的人 : {X（X） Y（Y） : 类型} → (X（X） → Y（Y）) → 居住在中国的 X（X） → 居住在中国的 Y（Y）
居住在中国的人 （f） = 中国人居住的地区(η ∘ （f）)
μ : {X（X） : 类型} → 居住在中国的(习惯的 X（X）) → 居住在中国的 X（X）
μ = 中国人居住的地区 身份证件\结束{code}
\开始{code}固有强度 : {X（X） Y（Y） : 类型} → X（X） × 居住在中国的 Y（Y） → 居住在中国的(X（X） × Y（Y）)
中国强度 (x个 , q个) = 居住在中国的人(λ 年 → (x个 , 年)) q个
中国式换档 : {X（X） Y（Y） : 类型} → 居住在中国的 X（X） × 居住在中国的 Y（Y） → 居住在中国的(X（X） × Y（Y）)
中国式换档 (第页 , q个) = 中国人居住的地区(λ x个 → 中国强度(x个 , q个)) 第页\结束{code}
\开始{code}hs表格示例 : (X（X） : 类型) → hs表(D类 X（X）)
hs表格示例 X（X） 小时 c = x个
哪里
第页 : 居住在中国的(可折叠的 X（X） × D类 X（X）)
第页 = 中国强度(c , 小时)
（f） : 可折叠的 X（X） × D类 X（X） → X（X）
（f）(c , φ) = φ c
q个 : 居住在中国的 X（X）
q个 = 居住在中国的人 （f） 第页
x个 : X（X）
x个 = 可折叠-is-hs稳定 c q个
可折叠示例 : (X（X） : 类型) → 可折叠的(D类 X（X）)
可折叠示例 X（X） = hstable-is可折叠(hs表格示例 X（X）)\结束{code}\开始{code}φ-双 : (X（X） : 类型) → D类 X（X） → D类 X（X）
φ-双 X（X） = π₀(可折叠示例 X（X）)
φ-常数-bis : (X（X） : 类型) → 常数(φ-双 X（X）)
φ-常数-bis X（X） = π₁(可折叠示例 X（X）)\结束{code}
\开始{code}HoTT-taboo公司 : 类型₁
HoTT-taboo公司 = (X（X） : 类型) → hset公司 X（X）
所有类型-均为稳定型-is-a-HoTT-taboo : ((X（X） : 类型) → hs表 X（X）) → HoTT-taboo公司
所有类型-均为稳定型-is-a-HoTT-taboo 小时 _ = hs分离即设置(小时(_ ≡ _))\结束{code}
\开始{code}PST表 : 类型 → 类型
pstable表 X（X） = 密集的 X（X） → X（X）
pstable-is-hstable : (X（X） : 类型) → PST表 X（X） → hs表 X（X）
pstable-is-hstable X（X） 第页 小时 = 第页(密集的₁-已填充(居住在中国的居民₁ 小时))
hstable-is-pstable : (X（X） : 类型) → hs表 X（X） → PST表 X（X）
hstable-is-pstable X（X） 小时 第页 = 填充-is-D 第页 (hstable-is可折叠 小时)\结束{code}
\开始{code}已填充₁-hs表 : {X（X） : 类型} → 密集的₁(hs表 X（X）)
密集的₁-hs表 {X（X）} P（P） 小时 一 b = b 高速
哪里
单位 : X（X） → P（P）
单位 x个 = b(λ _ → x个)
克 : 居住在中国的 X（X） → P（P）
克 你好 = 华裔穆斯林 X（X） P（P） 小时 单位 你好
高速 : 居住在中国的 X（X） → X（X）
高速 你好 = 一 (克 你好) 你好
人口稳定 : {X（X） : 类型} → 已填充(hs表 X（X）)
人口稳定 = 密集的₁-已填充 密集的₁-hs表
非空hs表 : {X（X） : 类型} → 非空的(hs表 X（X）)
非空hs表 = 密集的₁-是虚无的 密集的₁-hs表\结束{code}
\开始{code}人口居住的华人 : ((X（X） : 类型) → 密集的 X（X） → 居住在中国的 X（X）) → ((X（X） : 类型) → 居住在中国的(hs表 X（X）))
人口居住的华人 （f） X（X） = （f） (hs表 X（X）) 人口稳定
人口居住的中国 : ((X（X） : 类型) → 居住在中国的(hs表 X（X）)) → ((X（X） : 类型) → 密集的 X（X） → 居住在中国的 X（X）)
有人居住的特征 （f） X（X） 采购订单 =
中国人居住的地区 (λ 小时 → 密集的₁-居住在地下 小时 (人口-人口₁ 采购订单)) (（f） X（X）)\结束{code}
\开始{code}非空可判定 : {X（X） : 类型} → 非空的(可判定的 X（X）)
非空可判定 d日 = d日(在里面₁(λ x个 → d日(在里面₀ x个)))
假设 funext-special-case₃ : {X（X） : 类型} → funext（复数） X（X） ∅
∅-值-功能-相等 : {X（X） : 类型} → hprop（高性能提升）(空的 X（X）)
∅-值-功能-相等 {X（X）} （f） 克 = funext-special-case₃ {X（X）} （λ x个 → ∅-埃利姆(（f） x个))
hhd（小时） : {P（P） : 类型} → hprop（高性能提升） P（P） → hprop（高性能提升）(可判定的 P（P）)
hhd（小时） 小时 (在里面₀ 第页) (在里面₀ q个) = 应用程序 在里面₀ (小时 第页 q个)
hhd（小时） 小时 (在里面₀ 第页) (在里面₁ v（v）) = ∅-埃利姆(v（v） 第页)
hhd（小时） 小时 (在里面₁ 单位) (在里面₀ q个) = ∅-埃利姆(单位 q个)
hhd（小时） 小时 (在里面₁ 单位) (在里面₁ v（v）) = 应用程序 在里面₁ (∅-值-功能-相等 单位 v（v）)
六氯环己烷 : {P（P） : 类型} → hprop（高性能提升） P（P） → 可折叠的(可判定的 P（P）)
六氯环己烷 小时 = (身份证件 , hhd（小时） 小时)\结束{code}
\开始{code}哼 : 类型₁
哼 = (P（P） : 类型) → hprop（高性能提升） P（P） → 可判定的 P（P）
wEM公司 : 类型₁
wEM公司 = (X（X） : 类型) → 可判定的(空的 X（X）)
hEM-意味着-wEM : 哼 → wEM公司
hEM-意味着-wEM 哼 X（X） = 哼 (空的 X（X）) ∅-值-功能-相等
所有非空类型都是流行的禁忌 : ((X（X） : 类型) → 非空的 X（X） → 密集的 X（X）) → 哼
所有非空类型都是流行的禁忌 一 P（P） 小时 = 填充-is-D 第页 c
哪里
第页 : 密集的(可判定的 P（P）)
第页 = 一 (可判定的 P（P）) 非空可判定
c : 可折叠的(可判定的 P（P）)
c = 六氯环己烷 小时\结束{code}
\开始{code}派克靴 : {X（X） Y（Y） : 类型} → (X（X） → 密集的₁ Y（Y）) → 密集的₁(X（X） → Y（Y）)
派克靴 {X（X）} {Y（Y）} 小时 P（P） 马力 一 b = b 高速
哪里
单位 : X（X） → Y（Y） → P（P）
单位 x个 年 = b(λ _ → 年)
克 : X（X） → 密集的₁ Y（Y） → P（P）
克 x个 采购订单 = 采购订单 P（P） 马力 (λ 第页 → 一 第页 x个) （λ 年 → 单位 x个 年)
高速 : X（X） → Y（Y）
高速 x个 = 一 (克 x个 (小时 x个)) x个
混合交流 : {X（X） Y（Y） : 类型} → (X（X） → 居住在中国的 Y（Y）) → 密集的₁(X（X） → Y（Y）)
混合交流 （f） = 派克靴 (λ x个 → 人口稠密₁(（f） x个))
弱混合AC : {X（X） Y（Y） : 类型} → (X（X） → 居住在中国的 Y（Y）) → 非空的(X（X） → Y（Y）)
弱混合AC {X（X）} {Y（Y）} 第页 = 密集的₁-是虚无的 (混合交流 第页)
DN（公称直径） : {R（右） X（X） Y（Y） : 类型} → (X（X） → Y（Y）) → ((X（X） → R（右）) → R（右）) → ((Y（Y） → R（右）) → R（右）)
DN（公称直径） （f） = 反阳性(反阳性 （f）)
弱hAC : 哼 → {X（X） Y（Y） : 类型} → (X（X） → 居住在中国的 Y（Y）) → 居住在中国的(X（X） → Y（Y）)
弱hAC 哼 {X（X）} {Y（Y）} 小时 = （f） hEM特异性case
哪里
hEM特异性case : 居住在中国的(X（X） → Y（Y）) + 空的(居住在中国的(X（X） → Y（Y）))
hEM特异性case = 哼 (习惯的(X（X） → Y（Y）)) hprop居住
事实 : 非空的(X（X） → Y（Y）)
事实 = 弱混合AC 小时
声称 : 非空的(X（X） → Y（Y）) → 非空的(居住在中国的(X（X） → Y（Y）))
声称 = DN（公称直径） η
（f） : 居住在中国的(X（X） → Y（Y）) + 空的(居住在中国的(X（X） → Y（Y）)) → 居住在中国的(X（X） → Y（Y）)
（f） (在里面₀ 你好) = 你好
（f） (在里面₁ 非霍奇金国际) = ∅-elim(声称 事实 非霍奇金国际)
非常弱的hAC : 哼 → {X（X） : 类型} → 居住在中国的(hs表 X（X）)
非常弱的hAC 哼 {X（X）} = 弱hAC 哼 身份证件\结束｛代码｝
\开始{code}小时→小时 : ((X（X） : 类型) → 居住在中国的(hs表 X（X）)) → (X（X） Y（Y） : 类型) → (X（X） → 居住在中国的 Y（Y）) → 居住在中国的(X（X） → Y（Y）)
小时→小时 小时 X（X） Y（Y） （f） = 居住在中国的人 (λ 第页 → (π₁ 第页) ∘ (π₀ 第页)) 引理
哪里
引理 : 居住在中国的 ((X（X） → 居住在中国的 Y（Y）) × (居住在中国的 Y（Y） → Y（Y）))
引理 = 中国强度 (（f） , 小时 Y（Y）)
小时←小时 : ((X（X） Y（Y） : 类型) → (X（X） → 居住在中国的 Y（Y）) → 居住在中国的(X（X） → Y（Y）)) → (X（X） : 类型) → 居住在中国的(hs表 X（X）)
小时←小时 小时 X（X） = 小时 (居住在中国的 X（X）) X（X） 身份证件\结束{code}
\开始{code}当地赫德伯格 : {X（X） : 类型} → (x个 : X（X）)
→ ({年 : X（X）} → 可折叠的(x个 ≡ 年))
→ (年 : X（X）) → hprop（高性能提升）(x个 ≡ 年)
当地赫德伯格 {X（X）} x个 个人电脑 年 第页 q个 = 声称₂
哪里
（f） : {年 : X（X）} → x个 ≡ 年 → x个 ≡ 年
（f） = π₀ 个人电脑
克 : {年 : X（X）} (第页 q个 : x个 ≡ 年) → （f） 第页 ≡ （f） q个
克 = π₁ 个人电脑
声称₀ : {年 : X（X）} (第页 : x个 ≡ 年) → 第页 ≡ (（f） 反射)⁻¹ • (（f） 第页)
声称₀ = J’ x个 (λ 第页 → 第页 ≡ ((（f） 回流)⁻¹) • (（f） 第页)) (sym-is-in-verse（对称-反向）(（f） 回流))
声称₁ : (（f） 回流)⁻¹ • (（f） 第页) ≡ (（f） 回流)⁻¹ • (（f） q个)
声称₁ = 应用程序 (λ 小时 → (（f） 回流)⁻¹ • 小时) (克 第页 q个)
声称₂ : 第页 ≡ q个
声称₂ = (声称₀ 第页) • 声称₁ • (声称₀ q个)⁻¹
path-collapsible-is-hset是一种特殊情况 : {X（X） : 类型} → 路径可压缩的 X（X） → hset（高速设置） X（X）
path-collapsible-is-hset是一种特殊情况 {X（X）} 个人电脑 {x个} {年} 第页 q个 = 当地赫德伯格 x个 （λ {年} → (π₀(个人电脑 {x个} {年})) , (π₁(个人电脑 {x个} {年}))) 年 第页 q个\结束{code}
\开始{code}全球选择-艾玛 : (X（X） : 类型) → (一 : ₂ → X（X）) → ({x个 : X（X）} → hs表(Σ \(我 : ₂) → 一 我 ≡ x个)) → 可判定的(一 ₀ ≡ 一 ₁)
全球选择-艾玛 X（X） 一 选择 = 等差
哪里
E类 : 类型
E类 = Σ \(x个 : X（X）) → 居住在中国的(Σ \(我 : ₂) → 一 我 ≡ x个)
第页 : ₂ → E类
第页 我 = 一 我 , η(我 , 回流)
r-∑-≡s : (e（电子） : E类) → Σ \(我 : ₂) → 第页 我 ≡ e（电子）
r-∑-≡s (x个 , 第页) = π₀ p’ , Σ-≡ (一(π₀ p’)) x个 (η((π₀ p’) , 回流)) 第页 (π₁ p’) (hprop居住 _ 第页)
哪里
p’ : Σ \(我 : ₂) → 一 我 ≡ x个
p’ = 选择 第页
秒 : E类 → ₂
秒 e（电子） = π₀(r-∑-≡s e（电子）)
r-收缩 : (e（电子） : E类) → 第页(秒 e（电子）) ≡ e（电子）
r-收缩 e（电子） = π₁(r-∑-elec s e（电子）)
s-内射的 : (e（电子） e’ : E类) → 秒 e（电子） ≡ 秒 e’ → e（电子） ≡ e’
s-内射的 e（电子） e’ 第页 = (r-收回 e（电子）)⁻¹ • 应用程序 第页 第页 • r-收缩 e’
a-r公司 : (我 j个 : ₂) → 一 我 ≡ 一 j个 → 第页 我 ≡ 第页 j个
a-r公司 我 j个 第页 = Σ-≡ (一 我) (一 j个) (η(我 , 回流)) (η(j个 , 回流)) 第页 (hprop居住 _ (η(j个 , 回流)))
r-a公司 : (我 j个 : ₂) → 第页 我 ≡ 第页 j个 → 一 我 ≡ 一 j个
r-a公司 我 j个 q个 = 应用程序 π₀ q个
a-s公司 : (我 j个 : ₂) → 一 我 ≡ 一 j个 → 秒(第页 我) ≡ 秒(第页 j个)
a-s公司 我 j个 第页 = 应用程序 秒 (a-r公司 我 j个 第页)
s-a公司 : (我 j个 : ₂) → 秒(第页 我) ≡ 秒(第页 j个) → 一 我 ≡ 一 j个
s-a公司 我 j个 第页 = r-a公司 我 j个 (s-内射的 (第页 我) (第页 j个) 第页)
相等或不同 : (一 ₀ ≡ 一 ₁) + (一 ₀ ≡ 一 ₁ → ∅)
等差 = 声称(₂-离散的 {秒(第页 ₀)} {秒(第页 ₁)})
哪里
声称 : (秒(第页 ₀) ≡ 秒(第页 ₁)) + (秒(第页 ₀) ≡ 秒(第页 ₁) → ∅) → (一 ₀ ≡ 一 ₁) + (一 ₀ ≡ 一 ₁ → ∅)
声称 (在里面₀ 第页) = 在里面₀ (s-a公司 ₀ ₁ 第页)
声称 (在里面₁ 单位) = 在里面₁ (λ 第页 → 单位 (a-s公司 ₀ ₁ 第页))
全球精选建筑标签 : ({X（X） : 类型} → 居住在中国的 X（X） → X（X）) → (X（X） : 类型) → 离散的 X（X）
全球精选建筑标签 全球选择 X（X） {一₀} {一₁} = 全局选择引理 X（X） 一 (λ {x个} → 全球选择)
哪里
一 : ₂ → X（X）
一 ₀ = 一₀
一 ₁ = 一₁\结束{code}
\开始{code}第页→小时 : {X（X） : 类型} → 密集的₁ X（X） → 居住在中国的(居住在中国的 X（X） → X（X）) → 居住在中国的 X（X）
第页→小时 {X（X）} 采购订单 = 华裔穆斯林 (居住在中国的 X（X） → X（X）) (居住在中国的 X（X）) hprop居住 引理
哪里
引理 : (居住在中国的 X（X） → X（X）) → 居住在中国的 X（X）
引理 秒 = 采购订单 (居住在中国的 X（X）) hprop居住 秒 η
小时→第页 : {X（X） : 类型} → (居住在中国的(居住在中国的 X（X） → X（X）) → 居住在中国的 X（X）) → 密集的₁ X（X）
小时→第页 {X（X）} φ P（P） 小时 一 b = b’(引理(一 ∘ b’))
哪里
b’ : 居住在中国的 X（X） → P（P）
b’ = 华裔穆斯林 X（X） P（P） 小时 b
引理 : (居住在中国的 X（X） → X（X）) → 居住在中国的 X（X）
引理 = φ ∘ η\结束{code}
\开始{code}hprop-choice-gives假说 :
((P（P） : 类型)(Y（Y） : P（P） → 类型) → hprop（高性能提升） P（P） → ((第页 : P（P）) → 习惯的(Y（Y） 第页)) → 居住在中国的((第页 : P（P）) → Y（Y） 第页))
→ ((X（X） : 类型) → 居住在中国的(居住在中国的 X（X） → X（X）))
hprop-choice-gives假说 hprop空调 X（X） = hprop空调 (居住在中国的 X（X）) (λ 第页 → X（X）) hprop居住 身份证件
∑-习惯性移位 : {X（X） : 类型} {Y（Y） : X（X） → 类型} → (Σ \(x个 : X（X）) → 居住在中国的(Y（Y） x个)) → 居住在中国的(Σ \(x个 : X（X）) → Y（Y） x个)
∑-中国移动 {X（X）} {Y（Y）} (x个 , 小时) = 引理 x个 小时
哪里
引理 : ∀(x个 : X（X）) → 习惯的(Y（Y） x个) → 居住在中国的(Σ \(x个 : X（X）) → Y（Y） x个)
引理 x个 = 居住在中国的人(λ 年 → (x个 , 年))
假设-病毒-hp选择 :
((X（X） : 类型) → 居住在中国的(居住在中国的 X（X） → X（X）))
→ (P（P） : 类型)(Y（Y） : P（P） → 类型) → hprop（高性能提升） P（P） → ((第页 : P（P）) → 居住在中国的(Y（Y） 第页)) → 居住在中国的((第页 : P（P）) → Y（Y） 第页)
假设-病毒-hp选择 φ P（P） Y（Y） 小时 （f） = 居住在中国的人 声称₅ 声称₄
哪里
X（X） : 类型
X（X） = Σ \(第页 : P（P）) → Y（Y） 第页
φ' : 居住在中国的(居住在中国的 X（X） → X（X）)
φ' = φ X（X）
声称₀ : (第页 : P（P）) → Σ \(p’ : P（P）) → 居住在中国的(Y（Y） p’)
声称₀ 第页 = (第页 , （f） 第页)
声称₁ : P（P） → 居住在中国的 X（X）
声称₁ 第页 = ∑-中国移动(声称₀ 第页)
声称₂ : 居住在中国的((P（P） → 居住在中国的 X（X）) × (居住在中国的 X（X） → X（X）))
声称₂ = 中国强度(声称₁ , φ')
声称₃ : (P（P） → 居住在中国的 X（X）) × (习惯的 X（X） → X（X）) → P（P） → X（X）
声称₃ (克 , 小时) = 小时 ∘ 克
声称₄ : 居住在中国的(P（P） → X（X）)
声称₄ = 居住在中国的人 声称₃ 声称₂
声称₅ : (P（P） → X（X）) → (第页 : P（P）) → Y（Y） 第页
声称₅ ψ 第页 = 运输 {P（P）} {Y（Y）} e（电子） 年
哪里
p’ : P（P）
p’ = π₀(ψ 第页)
年 : Y（Y） p’
年 = π₁ (ψ 第页)
e（电子） : p’ ≡ 第页
e（电子） = 小时 p’ 第页\结束{code}
\开始{code}tt-TC公司 : {X（X） : 类型}{Y（Y） : X（X） → 类型}{A类 : (x个 : X（X）) → Y（Y） x个 → 类型}
→ (∀(x个 : X（X）) → Σ \(年 : Y（Y） x个) → A类 x个 年) → Σ \(（f） : (x个 : X（X）) → Y（Y） x个) → ∀(x个 : X（X）) → A类 x个 (（f） x个)
tt-TC公司 （f） = (λ x个 → π₀(（f） x个)) , (λ x个 → π₁(（f） x个))
∃ : {X（X） : 类型}(Y（Y） : X（X） → 类型) → 类型
∃ Y（Y） = 居住在中国的(Σ Y（Y）)
假设-gives-hpprop-choice’ :
((X（X） : 类型) → 居住在中国的(习惯的 X（X） → X（X）))
→ (P（P） : 类型)(Y（Y） : P（P） → 类型) → (A类 : (第页 : P（P）) → Y（Y） 第页 → 类型) → hprop（高性能提升） P（P）
→ (∀(第页 : P（P）) → ∃ \(年 : Y（Y） 第页) → A类 第页 年) → ∃ \(（f） : (第页 : P（P）) → Y（Y） 第页) → ∀(第页 : P（P）) → A类 第页 (（f） 第页)
假设-gives-hpprop-choice’ φ P（P） Y（Y） A类 小时 = 居住在中国的人 tt-TC公司 ∘ hs换档
哪里
hs换档 : (∀(第页 : P（P）) → 居住在中国的(Σ \(年 : Y（Y） 第页) → A类 第页 年)) → 居住在中国的(∀(第页 : P（P）) → Σ \(年 : Y（Y） 第页) → A类 第页 年)
hs换档 = 假设-病毒-hp选择 φ P（P） （λ 第页 → Σ \(年 : Y（Y） 第页) → A类 第页 年) 小时\结束{code}\开始{code}假设-生活-趣味选择 :
((Z轴 : 类型) → 居住在中国的(居住在中国的 Z轴 → Z轴))
→ (X（X） : 类型)(Y（Y） : X（X） → 类型) → ((x个 : X（X）) → 居住在中国的(Y（Y） x个)) → 居住在中国的(X（X） → Σ \(x个 : X（X）) → Y（Y） x个)
假设-生活-趣味选择 φ X（X） Y（Y） （f） = 声称₄
哪里
Z轴 : 类型
Z轴 = Σ \(x个 : X（X）) → Y（Y） x个
φ' : 居住在中国的(居住在中国的 Z轴 → Z轴)
φ' = φ Z轴
声称₀ : (x个 : X（X）) → Σ \(x’ : X（X）) → 居住在中国的(Y（Y） x’)
声称₀ x个 = (x个 , （f） x个)
声称₁ : X（X） → 居住在中国的 Z轴
声称₁ x个 = ∑-中国移动(声称₀ x个)
声称₂ : 居住在中国的((X（X） → 居住在中国的 Z轴) × (习惯的 Z轴 → Z轴))
声称₂ = 中国强度(声称₁ , φ')
声称₃ : (X（X） → 居住在中国的 Z轴) × (居住在中国的 Z轴 → Z轴) → X（X） → Z轴
声称₃ (克 , 小时) = 小时 ∘ 克
声称₄ : 居住在中国的(X（X） → Z轴)
声称₄ = 居住在中国的人 声称₃ 声称₂\结束｛代码｝
\开始{code}∥_∥ : 类型 → 类型
∥ X（X） ∥ = 居住在中国的 X（X）
Ş_Ş : {X（X） : 类型} → X（X） → ∥ X（X） ∥
∣ x个 ∣ = η x个
假设 hprop支柱 : {X（X） : 类型} → hprop（高性能提升）(hprop（高性能提升） X（X）) \结束{code}\开始{code}模块 HoTT-list讨论
(X（X） : 类型)
(（f） : X（X） → X（X）)
(秒 : ∥ 常数 （f） ∥)
哪里\结束{code}
\开始{code}引理₀ : 常数 （f） → hprop（高性能提升）(修理 （f）)
引理₀ = 克劳斯引理 （f）
引理₁ : ∥ 常数 （f） ∥ → hprop（高性能提升）(修理 （f）)
引理₁ = 华裔穆斯林 (常数 （f）) (hprop（高性能提升）(修理 （f）)) hprop支柱 引理₀
F类 : 常数 （f） → X（X） → 修理 （f）
F类 κ x个 = （f） x个 , κ x个 (（f） x个)
G公司 : ∥ 常数 （f） ∥ → X（X） → 修理 （f）
G公司 秒 x个 = 华裔穆斯林 (常数 （f）) (修理 （f）) (引理₁ 秒) （λ κ → F类 κ x个) 秒\结束{code}
\开始{code}选择 : ∥ X（X） ∥ → X（X）
选择 t吨 = π₀ (华裔穆斯林 X（X） (修理 （f）) (引理₁ 秒) (G公司 秒) t吨)\结束｛代码｝\开始{code}克 : X（X） → X（X）
克 x个 = π₀(G公司 秒 x个)
g-固定-f : (x个 : X（X）) → 克 x个 ≡ （f）(克 x个)
g-固定-f x个 = π₁(G公司 秒 x个)
g常数 : 常数 克
g常数 x个 年 = 应用程序 π₀ 第页
哪里
第页 : G公司 秒 x个 ≡ G公司 秒 年
第页 = 引理₁ 秒 _ _
g-is-f运行 : ∥ ((x个 : X（X）) → 克 x个 ≡ （f） x个) ∥
g-is-f运行 = 居住在中国的人 有条件协议 秒
哪里
有条件协议 : 常数 （f） → (x个 : X（X）) → 克 x个 ≡ （f） x个
有条件协议 κ x个 = g-固定-f x个 • κ (克 x个) x个\结束{code}