2014-01-25 05:25:09 +00:00
|
|
|
Set: pp::colors
|
|
|
|
|
Set: pp::unicode
|
|
|
|
|
Assumed: vec
|
|
|
|
|
Assumed: concat
|
|
|
|
|
Assumed: concat_assoc
|
|
|
|
|
Assumed: empty
|
|
|
|
|
Assumed: concat_empty
|
2014-02-07 23:03:16 +00:00
|
|
|
Defined: TypeM
|
2014-01-25 05:25:09 +00:00
|
|
|
Assumed: n
|
|
|
|
|
Assumed: v
|
|
|
|
|
Assumed: w
|
|
|
|
|
Assumed: f
|
|
|
|
|
Assumed: p
|
|
|
|
|
Assumed: fax
|
2014-02-07 23:03:16 +00:00
|
|
|
p (f (v ; w ; empty ; (v ; empty))) ∧ v = cast (to_heq (congr2 vec (Nat::add_zeror n))) (v ; empty)
|
2014-01-25 05:25:09 +00:00
|
|
|
===>
|
|
|
|
|
p (v ; (w ; v))
|
|
|
|
|
checking proof
|
2014-02-07 23:03:16 +00:00
|
|
|
(p (f (v ; w ; empty ; (v ; empty))) ∧ v = cast (to_heq (congr2 vec (Nat::add_zeror n))) (v ; empty)) ==
|
|
|
|
|
(p (v ; (w ; v)))
|
