Write Nat/Unit/Empty/Id Eliminators Through NbE and Bidir Elaboration
This commit is contained in:
@@ -23,8 +23,15 @@ def main : IO Unit := do
|
||||
runOne "depPair" Examples.depPairAnn
|
||||
runOne "depPair.1" Examples.fstDepPair
|
||||
runOne "depPair.2" Examples.sndDepPair
|
||||
runOne "nat fold id" Examples.natFoldId
|
||||
runOne "unit elim" Examples.unitToNat
|
||||
runOne "empty absurd" Examples.absurdNat
|
||||
runOne "refl zero" Examples.reflZero
|
||||
runOne "id elim" Examples.idElimNat
|
||||
runOne "let universe" Examples.letUniverse
|
||||
runOne "omega (bad)" Examples.omegaAnn
|
||||
runOne "unknown var" Examples.unknownVar
|
||||
runOne "pair mismatch" Examples.pairMismatch
|
||||
runOne "bad fst" Examples.badFst
|
||||
runOne "bad succ" Examples.badSucc
|
||||
runOne "bad refl" Examples.badRefl
|
||||
|
||||
Reference in New Issue
Block a user