2014-01-05 20:05:08 +00:00
|
|
|
import Int
|
|
|
|
|
import tactic
|
2014-01-09 16:33:52 +00:00
|
|
|
set_option pp::implicit true
|
|
|
|
|
set_option pp::coercion true
|
|
|
|
|
set_option pp::notation false
|
2014-01-05 20:05:08 +00:00
|
|
|
variable vector (A : Type) (sz : Nat) : Type
|
|
|
|
|
variable read {A : Type} {sz : Nat} (v : vector A sz) (i : Nat) (H : i < sz) : A
|
|
|
|
|
variable V1 : vector Int 10
|
2014-02-02 02:27:14 +00:00
|
|
|
axiom H : 1 < 10
|
|
|
|
|
add_rewrite H
|
|
|
|
|
definition D := read V1 1 (by simp)
|
2014-01-05 20:05:08 +00:00
|
|
|
print environment 1
|
|
|
|
|
variable b : Bool
|
|
|
|
|
definition a := b
|
2014-01-08 08:38:39 +00:00
|
|
|
theorem T : b → a := (by (* normalize_tac() .. assumption_tac() *))
|
