max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

fix: bug in ppExpr test

Browse source
This commit is contained in:
Daniel Selsam 2021-07-31 08:22:49 -07:00 • committed by Sebastian Ullrich
parent e6b90dde8f
commit 00a33e2662
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
tests/lean/ppExpr.lean
View file

@ -16,11 +16,11 @@ def test (e : Expr) : MetaM Unit := do
-- pp annotations
#eval test $
mkAppN (mkConst `id [levelZero]) #[
mkAppN (mkConst `id [levelOne]) #[
mkConst `Nat,
mkMData (KVMap.empty.set `pp.explicit true) $ mkAppN (mkConst `id [levelZero]) #[
mkMData (KVMap.empty.set `pp.explicit true) $ mkAppN (mkConst `id [levelOne]) #[
mkConst `Nat,
mkAppN (mkConst `id [levelZero]) #[
mkAppN (mkConst `id [levelOne]) #[
mkConst `Nat,
mkConst `Nat.zero
]]]

2
tests/lean/ppExpr.lean.expected.out
View file

@ -1,3 +1,3 @@
#0
fun a => a
id (α := Nat) ((@id Nat (id (α := Nat) Nat.zero : Nat) : Nat) : Nat)
id (@id Nat (id Nat.zero))