src/HOL/Algebra/abstract/Factor.thy
author aspinall
Fri, 30 Sep 2005 18:18:34 +0200
changeset 17740 fc385ce6187d
parent 17479 68a7acb5f22e
child 20318 0e0ea63fe768
permissions -rw-r--r--
Add icon for interface.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
7998
3d0c34795831 Algebra and Polynomial theories, by Clemens Ballarin
paulson
parents:
diff changeset
     1
(*
3d0c34795831 Algebra and Polynomial theories, by Clemens Ballarin
paulson
parents:
diff changeset
     2
    Factorisation within a factorial domain
3d0c34795831 Algebra and Polynomial theories, by Clemens Ballarin
paulson
parents:
diff changeset
     3
    $Id$
3d0c34795831 Algebra and Polynomial theories, by Clemens Ballarin
paulson
parents:
diff changeset
     4
    Author: Clemens Ballarin, started 25 November 1997
3d0c34795831 Algebra and Polynomial theories, by Clemens Ballarin
paulson
parents:
diff changeset
     5
*)
3d0c34795831 Algebra and Polynomial theories, by Clemens Ballarin
paulson
parents:
diff changeset
     6
17479
68a7acb5f22e converted to Isar theory format;
wenzelm
parents: 13735
diff changeset
     7
theory Factor imports Ring begin
7998
3d0c34795831 Algebra and Polynomial theories, by Clemens Ballarin
paulson
parents:
diff changeset
     8
17479
68a7acb5f22e converted to Isar theory format;
wenzelm
parents: 13735
diff changeset
     9
constdefs
68a7acb5f22e converted to Isar theory format;
wenzelm
parents: 13735
diff changeset
    10
  Factorisation :: "['a::ring, 'a list, 'a] => bool"
7998
3d0c34795831 Algebra and Polynomial theories, by Clemens Ballarin
paulson
parents:
diff changeset
    11
  (* factorisation of x into a list of irred factors and a unit u *)
17479
68a7acb5f22e converted to Isar theory format;
wenzelm
parents: 13735
diff changeset
    12
  "Factorisation x factors u ==
68a7acb5f22e converted to Isar theory format;
wenzelm
parents: 13735
diff changeset
    13
     x = foldr op* factors u &
68a7acb5f22e converted to Isar theory format;
wenzelm
parents: 13735
diff changeset
    14
     (ALL a : set factors. irred a) & u dvd 1"
7998
3d0c34795831 Algebra and Polynomial theories, by Clemens Ballarin
paulson
parents:
diff changeset
    15
3d0c34795831 Algebra and Polynomial theories, by Clemens Ballarin
paulson
parents:
diff changeset
    16
end