4f2e0c6d7f
The new command provides a uniform way to set declaration attributes. It replaces the commands: class, instance, coercion, multiple_instances, reducible, irreducible
24 lines
472 B
Text
24 lines
472 B
Text
prelude
|
|
inductive nat : Type :=
|
|
zero : nat,
|
|
succ : nat → nat
|
|
|
|
inductive list (A : Type) : Type :=
|
|
nil {} : list A,
|
|
cons : A → list A → list A
|
|
|
|
inductive int : Type :=
|
|
of_nat : nat → int,
|
|
neg : nat → int
|
|
|
|
attribute int.of_nat [coercion]
|
|
|
|
constants n m : nat
|
|
constants i j : int
|
|
namespace list end list open list
|
|
|
|
check cons i (cons i nil)
|
|
check cons n (cons n nil)
|
|
check cons i (cons n nil)
|
|
check cons n (cons i nil)
|
|
check cons n (cons i (cons m (cons j nil)))
|