19 lines
558 B
Text
19 lines
558 B
Text
|
constant list : Type → Type
|
||
|
|
constant R.{l} : Π {A : Type.{l}}, A → A → Type.{l}
|
||
|
|
infix `~`:50 := R
|
||
|
|
|
||
|
|
example {A : Type} {a b c d : list nat} (H₁ : a ~ b) (H₂ : b = c) (H₃ : c = d) : a ~ d :=
|
||
|
|
calc a ~ b : H₁
|
||
|
|
... = c : H₂
|
||
|
|
... = d : H₃
|
||
|
|
|
||
|
|
example {A : Type} {a b c d : list nat} (H₁ : a = b) (H₂ : b = c) (H₃ : c ~ d) : a ~ d :=
|
||
|
|
calc a = b : H₁
|
||
|
|
... = c : H₂
|
||
|
|
... ~ d : H₃
|
||
|
|
|
||
|
|
example {A : Type} {a b c d : list nat} (H₁ : a = b) (H₂ : b ~ c) (H₃ : c = d) : a ~ d :=
|
||
|
|
calc a = b : H₁
|
||
|
|
... ~ c : H₂
|
||
|
|
... = d : H₃
|