src/HOL/ex/IntRing.ML
author nipkow
Fri, 24 Nov 2000 16:49:27 +0100
changeset 10519 ade64af4c57c
parent 5227 e5a6ace920a0
permissions -rw-r--r--
hide many names from Datatype_Universe.

(*  Title:      HOL/Integ/IntRing.ML
    ID:         $Id$
    Author:     Tobias Nipkow and Markus Wenzel
    Copyright   1996 TU Muenchen

The instantiation of Lagrange's lemma for int.
*)

Goal "!!i1::int. \
\  (sq i1 + sq i2 + sq i3 + sq i4) * (sq j1 + sq j2 + sq j3 + sq j4) = \
\  sq(i1*j1 - i2*j2 - i3*j3 - i4*j4)  + \
\  sq(i1*j2 + i2*j1 + i3*j4 - i4*j3)  + \
\  sq(i1*j3 - i2*j4 + i3*j1 + i4*j2)  + \
\  sq(i1*j4 + i2*j3 - i3*j2 + i4*j1)";
by (rtac Lagrange_lemma 1);
qed "Lagrange_lemma_int";