ยซ Home

Minimal Martin-Lรถf type theory (SOGAT) [ag-000B]

{-# OPTIONS --safe --without-K #-}
module ag-000B where

open import MLTT.Spartan
open import MLTT.NaturalNumbers
variable
  ๐‘– : โ„•

record minimal-martin-lof-type-theory : ๐“คโ‚ ฬ‡  where
  field
    Ty : โ„• โ†’ ๐“คโ‚€ ฬ‡
    U : (๐‘– : โ„•) โ†’ Ty (succ ๐‘–)
    Tm : Ty ๐‘– โ†’ ๐“คโ‚€ ฬ‡

    c : Ty ๐‘– โ†’ Tm (U ๐‘–)
    El : Tm (U ๐‘–) โ†’ Ty ๐‘–

    PI : (A : Ty ๐‘–) โ†’ (Tm A โ†’ Ty ๐‘–) โ†’ Ty ๐‘–
    Lift : Ty ๐‘– โ†’ Ty (succ ๐‘–)

    lam : {๐ด : Ty ๐‘–}{๐ต : Tm ๐ด โ†’ Ty ๐‘–} โ†’ ((๐‘Ž : Tm ๐ด) โ†’ Tm (๐ต ๐‘Ž)) โ†’ Tm (PI ๐ด ๐ต)
    _ยท_ : {๐ด : Ty ๐‘–}{๐ต : Tm ๐ด โ†’ Ty ๐‘–} โ†’ Tm (PI ๐ด ๐ต) โ†’ ((๐‘Ž : Tm ๐ด) โ†’ Tm (๐ต ๐‘Ž))

    mk : {๐ด : Ty ๐‘–} โ†’ Tm ๐ด โ†’ Tm (Lift ๐ด)
    un : {๐ด : Ty ๐‘–} โ†’ Tm (Lift ๐ด) โ†’ Tm ๐ด

้€™ๅ€‹็†่ซ–็š„ๅฐๆ‡‰ GAT ๅพ—ๅˆฐไธ€ๅ€‹ๅ…ทๆœ‰ๆ—็š„็ฏ„็–‡๏ผˆCwF๏ผ‰๏ผŒๆ›ดๆบ–็ขบๅœฐ่ชช๏ผŒๆ˜ฏไธ€ๅ€‹ๅ…ทๆœ‰ N ๅ€‹ families ็š„็ฏ„็–‡๏ผŒ้€™ไบ›ๆ—้…ๅ‚™ไบ† familywise ฮ -typesใ€ๅฎ‡ๅฎ™ไปฅๅŠๆ—ไน‹้–“็š„ไธ€ๆญฅๅ‘ไธŠๆๅ‡ใ€‚ ้€™ไบ›้กžๅž‹ๆ˜ฏ Ty : Con โ†’ N โ†’ Set ๅ’Œ Tm : (ฮ“ : Con) โ†’ Ty ฮ“ ๐‘– โ†’ Set๏ผŒๅ…ถไธญ ๐‘– ่ซ–่ญ‰้šฑๅซๅœจๅพŒ่€…ไธญใ€‚