Mercurial > hg > Members > atton > agda > systemT
changeset 6:db4c6d435f23
Fix indent
| author | Yasutaka Higa <e115763@ie.u-ryukyu.ac.jp> |
|---|---|
| date | Wed, 21 May 2014 14:55:52 +0900 |
| parents | a3cf5cb2b7d3 |
| children | f922e687f3a1 |
| files | int.agda |
| diffstat | 1 files changed, 8 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/int.agda Wed May 21 14:52:44 2014 +0900 +++ b/int.agda Wed May 21 14:55:52 2014 +0900 @@ -35,11 +35,11 @@ ∎ sum-assoc : (x y z : Int) -> x + (y + z) ≡ (x + y) + z -sum-assoc O O O = refl -sum-assoc O O (S z) = cong S (sum-assoc O O z) -sum-assoc O (S y) O = refl -sum-assoc O (S y) (S z) = cong S (sum-assoc O (S y) z) -sum-assoc (S x) O O = refl -sum-assoc (S x) O (S z) = cong S (sum-assoc (S x) O z) -sum-assoc (S x) (S y) O = refl -sum-assoc (S x) (S y) (S z) = cong S (sum-assoc (S x) (S y) z) +sum-assoc O O O = refl +sum-assoc O O (S z) = cong S (sum-assoc O O z) +sum-assoc O (S y) O = refl +sum-assoc O (S y) (S z) = cong S (sum-assoc O (S y) z) +sum-assoc (S x) O O = refl +sum-assoc (S x) O (S z) = cong S (sum-assoc (S x) O z) +sum-assoc (S x) (S y) O = refl +sum-assoc (S x) (S y) (S z) = cong S (sum-assoc (S x) (S y) z)