mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2024-12-18 18:31:43 +03:00
e6121e0935
This is the result of running the command:
$ find . -name '*.idr' -type f -exec sed -i -E 's/\s+$//' {} +
I confirmed before running it that this would not affect any markdown
formatting in documentation comments.
20 lines
617 B
Idris
20 lines
617 B
Idris
plusnZ : (n : Nat) -> n + 0 = n
|
|
plusnZ 0 = Refl
|
|
plusnZ (S k) = rewrite plusnZ k in Refl
|
|
|
|
plusnSm : (n, m : Nat) -> n + (S m) = S (n + m)
|
|
plusnSm Z m = Refl
|
|
plusnSm (S k) m = rewrite plusnSm k m in Refl
|
|
|
|
plusCommutes : (n, m : Nat) -> n + m = m + n
|
|
plusCommutes Z m = sym (plusnZ m)
|
|
plusCommutes (S k) m = rewrite plusCommutes k m in sym (plusnSm m k)
|
|
|
|
wrongCommutes : (n, m : Nat) -> n + m = m + n
|
|
wrongCommutes Z m = sym (plusnZ m)
|
|
wrongCommutes (S k) m = rewrite plusCommutes m k in ?bar
|
|
|
|
wrongCommutes2 : (n, m : Nat) -> n + m = m + n
|
|
wrongCommutes2 Z m = sym (plusnZ m)
|
|
wrongCommutes2 (S k) m = rewrite m in ?bar
|