fix(library/tests/lean/*): fix tests
This commit is contained in:
parent
37f3e5cc69
commit
666ca36470
4 changed files with 5 additions and 5 deletions
|
|
@ -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,
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -18,4 +18,4 @@ sorry
|
|||
check f ⟨0, zlt10⟩
|
||||
|
||||
definition g (a : below 10) : nat :=
|
||||
subtype.elt_of a
|
||||
subtype.val a
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue