fix(library/tests/lean/*): fix tests

This commit is contained in:
Jeremy Avigad 2017-03-08 21:41:04 -05:00 committed by Leonardo de Moura
parent 37f3e5cc69
commit 666ca36470
4 changed files with 5 additions and 5 deletions

View file

@ -20,7 +20,7 @@ end
example : { k : // k ≤ 555555 } :=
begin
refine subtype.tag _ _,
refine subtype.mk _ _,
exact 17,
target >>= trace,
trace_state,
@ -32,7 +32,7 @@ set_option pp.instantiate_mvars false
example : { k : // k ≤ 555555 } :=
begin
refine subtype.tag _ _,
refine subtype.mk _ _,
exact 17,
target >>= trace,
trace_state,

View file

@ -12,7 +12,7 @@ instance pred2subtype {A : Type u} : has_coe_to_sort (A → Prop) :=
⟨Type u, (λ p : A → Prop, subtype p)⟩
instance coesubtype {A : Type u} {p : A → Prop} : has_coe (@coe_sort _ pred2subtype p) A :=
⟨λ s, subtype.elt_of s⟩
⟨λ s, subtype.val s⟩
def g {n : nat} (v : below n) : nat :=
v + 1

View file

@ -4,4 +4,4 @@ inductive imf (f : nat → nat) : nat → Type
definition inv_2 (f : nat → nat) : ∀ (b : nat), imf f b → {x : nat // x > b} → nat
| .(f a) (imf.mk1 .f a) x := a
| .(f 0 + 1) (imf.mk2 .f) x := subtype.elt_of x
| .(f 0 + 1) (imf.mk2 .f) x := subtype.val x

View file

@ -18,4 +18,4 @@ sorry
check f ⟨0, zlt10⟩
definition g (a : below 10) : nat :=
subtype.elt_of a
subtype.val a