src/HOL/Integ/IntRing.ML
author wenzelm
Thu Jan 23 14:19:16 1997 +0100 (1997-01-23)
changeset 2545 d10abc8c11fb
parent 2281 e00c13a29eda
child 3018 e65b60b28341
permissions -rw-r--r--
added AxClasses test;
nipkow@2281
     1
(*  Title:      HOL/Integ/IntRing.ML
nipkow@2281
     2
    ID:         $Id$
nipkow@2281
     3
    Author:     Tobias Nipkow and Markus Wenzel
nipkow@2281
     4
    Copyright   1996 TU Muenchen
nipkow@2281
     5
nipkow@2281
     6
The instantiation of Lagrange's lemma for int.
nipkow@2281
     7
*)
nipkow@2281
     8
nipkow@2281
     9
open IntRing;
nipkow@2281
    10
nipkow@2281
    11
goal thy "!!i1::int. \
nipkow@2281
    12
\  (sq i1 + sq i2 + sq i3 + sq i4) * (sq j1 + sq j2 + sq j3 + sq j4) = \
nipkow@2281
    13
\  sq(i1*j1 - i2*j2 - i3*j3 - i4*j4)  + \
nipkow@2281
    14
\  sq(i1*j2 + i2*j1 + i3*j4 - i4*j3)  + \
nipkow@2281
    15
\  sq(i1*j3 - i2*j4 + i3*j1 + i4*j2)  + \
nipkow@2281
    16
\  sq(i1*j4 + i2*j3 - i3*j2 + i4*j1)";
nipkow@2281
    17
br Lagrange_lemma 1;
nipkow@2281
    18
qed "Lagrange_lemma_int";