chore: move more tests to new frontend

This commit is contained in:
Leonardo de Moura 2020-09-11 16:28:57 -07:00
parent c93f48cc9f
commit bbc3bec53b
4 changed files with 17 additions and 12 deletions

View file

@ -1,7 +1,9 @@
new_frontend
universes u v
inductive arrow (α : Type u) (β : Type v)
| mk : (α → β) → arrow
| mk : (α → β) → arrow α β
inductive foo
| mk : arrow Nat foo → foo
@ -11,10 +13,14 @@ inductive foo
set_option pp.all true
#print foo.below
mutual inductive foo2, arrow2
with foo2 : Type
mutual
inductive foo2 : Type
| mk : arrow2 → foo2
with arrow2 : Type
inductive arrow2 : Type
| mk : (Nat → foo2) → arrow2
end
#print foo2.brecOn

View file

@ -1,6 +1,5 @@
def x := 1
new_frontend
def x := 1
#check x

View file

@ -1,3 +1,5 @@
new_frontend
def foo {α} (a : Option α) (b : α) : α :=
match a with
| some a => a
@ -6,8 +8,6 @@ match a with
structure S :=
(x : Nat)
new_frontend
#check if 0 == 1 then true else false
def f (x : Nat) : Nat :=

View file

@ -1,13 +1,13 @@
new_frontend
structure S :=
(g {α} : αα)
def f (h : Nat → (forall {α : Type}, αα) × Bool) : Nat :=
def f (h : Nat → ({α : Type} → αα) × Bool) : Nat :=
(h 0).1 1
new_frontend
def tst : Nat :=
f (fun n => (fun x => x, true))
f fun n => (fun x => x, true)
theorem ex : id (Nat → Nat) :=
by {