25 lines
392 B
Text
25 lines
392 B
Text
|
import data.list
|
||
|
|
open perm
|
||
|
|
variables a b c : nat
|
||
|
|
variables H1 : a = b
|
||
|
|
variables H2 : b = c
|
||
|
|
set_option pp.all true
|
||
|
|
variables p q r : Prop
|
||
|
|
variables l1 l2 l3 : list nat
|
||
|
|
variables H3 : p ↔ q
|
||
|
|
variables H4 : q ↔ r
|
||
|
|
variables H5 : l1 ~ l2
|
||
|
|
variables H6 : l2 ~ l3
|
||
|
|
|
||
|
|
#refl eq a
|
||
|
|
#refl iff p
|
||
|
|
#refl perm l1
|
||
|
|
|
||
|
|
#symm eq H1
|
||
|
|
#symm iff H3
|
||
|
|
#symm perm H5
|
||
|
|
|
||
|
|
#trans eq H1, H2
|
||
|
|
#trans iff H3, H4
|
||
|
|
#trans perm H5, H6
|