Skip to content

Instantly share code, notes, and snippets.

@nkaretnikov
Created March 27, 2016 21:09
Show Gist options
  • Save nkaretnikov/f334eb3c8236d7730b3e to your computer and use it in GitHub Desktop.
Save nkaretnikov/f334eb3c8236d7730b3e to your computer and use it in GitHub Desktop.
*-assoc
*-assoc : ∀ a b c → (a * b) * c ≡ a * (b * c)
*-assoc zero b c = refl
*-assoc (succ a) b c =
*+-dist b (a * b) c ~ cong (λ x → b * c + x) (*-assoc a b c)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment