lean2/tests/lean/lift_coe_off.lean

open nat

inductive tree (A : Type) :=
leaf : A → tree A,
node : tree A → tree A → tree A

-- set_option elaborator.lift_coercions false

definition size {A : Type} (t : tree A) :nat:=
tree.rec (λ a, 1) (λ t₁ t₂ n₁ n₂, n₁ + n₂) t

--set_option elaborator.lift_coercions true

definition size2 {A : Type} (t : tree A) :nat:=
tree.rec (λ a, 1) (λ t₁ t₂ n₁ n₂, n₁ + n₂) t
feat(frontends/lean): add option for disabling "coercion lifting" 2015-05-31 00:07:42 +00:00			`open nat`

			`inductive tree (A : Type) :=`
			`leaf : A → tree A,`
			`node : tree A → tree A → tree A`

fix(tests/lean): adjust remaining tests to changes in the standard library 2015-10-14 01:35:16 +00:00			`-- set_option elaborator.lift_coercions false`
feat(frontends/lean): add option for disabling "coercion lifting" 2015-05-31 00:07:42 +00:00
fix(tests/lean): adjust remaining tests to changes in the standard library 2015-10-14 01:35:16 +00:00			`definition size {A : Type} (t : tree A) :nat:=`
feat(frontends/lean): add option for disabling "coercion lifting" 2015-05-31 00:07:42 +00:00			`tree.rec (λ a, 1) (λ t₁ t₂ n₁ n₂, n₁ + n₂) t`

fix(tests/lean): adjust remaining tests to changes in the standard library 2015-10-14 01:35:16 +00:00			`--set_option elaborator.lift_coercions true`
feat(frontends/lean): add option for disabling "coercion lifting" 2015-05-31 00:07:42 +00:00
fix(tests/lean): adjust remaining tests to changes in the standard library 2015-10-14 01:35:16 +00:00			`definition size2 {A : Type} (t : tree A) :nat:=`
feat(frontends/lean): add option for disabling "coercion lifting" 2015-05-31 00:07:42 +00:00			`tree.rec (λ a, 1) (λ t₁ t₂ n₁ n₂, n₁ + n₂) t`