lean2/tests/lean/let4.lean

51 lines
792 B
Text
Raw Normal View History

import Int.
print
let b := true,
a : Int := b
in a
variable vector : Type -> Nat -> Type
variable const {A : Type} (n : Nat) (a : A) : vector A n
check
let a := 10,
v1 := const a true,
v2 := v1
in v2
print
let a := 10,
v1 : vector Bool a := const a true,
v2 : vector Bool a := v1
in v2
check
let a := 10,
v1 : vector Bool a := const a true,
v2 : vector Bool a := v1
in v2
check
let a := 10,
v1 : vector Bool a := const a true,
v2 : vector Int a := v1
in v2
variable foo : (vector Bool 10) -> (vector Int 10)
coercion foo
check
let a := 10,
v1 : vector Bool a := const a true,
v2 : vector Int a := v1
in v2
set::option pp::coercion true
print
let a := 10,
v1 : vector Bool a := const a true,
v2 : vector Int a := v1
in v2