lean2/tests/lean/run/coercion_bug2.lean

import data.nat
using nat

inductive list (T : Type) : Type :=
| nil {} : list T
| cons : T → list T → list T

definition length {T : Type} : list T → nat := list_rec 0 (fun x l m, succ m)
theorem length_nil {T : Type} : length (@nil T) = 0
:= refl _
fix(tests/lean): adjust tests to new library structure Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-08-01 16:37:23 +00:00			`import data.nat`
fix(library/unifier): add a flag to sign that a choice constraint owns a metavariable ?m, that is, it has the right to assign ?m, and the unifier should postpone any other constraint that tries to assign ?m Signed-off-by: Leonardo de Moura <leonardo@microsoft.com> 2014-07-30 00:32:55 +00:00			`using nat`

			`inductive list (T : Type) : Type :=`
			`\| nil {} : list T`
			`\| cons : T → list T → list T`

			`definition length {T : Type} : list T → nat := list_rec 0 (fun x l m, succ m)`
			`theorem length_nil {T : Type} : length (@nil T) = 0`
			`:= refl _`