Mercurial Mercurial > repos > isabelle / annotate
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Algebra/poly/LongDiv.thy
author wenzelm
Tue, 16 Jan 2001 00:37:41 +0100
changeset 10915 6b66a8a530ce
parent 7998 3d0c34795831
child 11093 62c2e0af1d30
permissions -rw-r--r--
* HOL/datatype: induction rule for arbitrarily branching datatypes is now expressed as a proper nested rule (old-style tactic scripts may require atomize_strip_tac to cope with non-atomic premises); * HOL: renamed theory "Prod" to "Product_Type", renamed "split" rule to "split_conv" (old name still available for compatibility); * HOL: improved concrete syntax for strings (e.g. allows translation rules with string literals);
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
 
    Experimental theory: long division of polynomials
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 23 June 1999
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
 












3d0c34795831
Algebra and Polynomial theories, by Clemens Ballarin



paulson


parents: 

diff
changeset




     7


LongDiv = PolyHomo +













3d0c34795831
Algebra and Polynomial theories, by Clemens Ballarin



paulson


parents: 

diff
changeset




     8














3d0c34795831
Algebra and Polynomial theories, by Clemens Ballarin



paulson


parents: 

diff
changeset




     9


consts













3d0c34795831
Algebra and Polynomial theories, by Clemens Ballarin



paulson


parents: 

diff
changeset




    10


  lcoeff :: "'a::ringS up => 'a"













3d0c34795831
Algebra and Polynomial theories, by Clemens Ballarin



paulson


parents: 

diff
changeset




    11


  eucl_size :: 'a::ringS => nat













3d0c34795831
Algebra and Polynomial theories, by Clemens Ballarin



paulson


parents: 

diff
changeset




    12














3d0c34795831
Algebra and Polynomial theories, by Clemens Ballarin



paulson


parents: 

diff
changeset




    13


defs













3d0c34795831
Algebra and Polynomial theories, by Clemens Ballarin



paulson


parents: 

diff
changeset




    14


  lcoeff_def	"lcoeff p == coeff (deg p) p"













3d0c34795831
Algebra and Polynomial theories, by Clemens Ballarin



paulson


parents: 

diff
changeset




    15


  eucl_size_def "eucl_size p == if p = <0> then 0 else deg p+1"













3d0c34795831
Algebra and Polynomial theories, by Clemens Ballarin



paulson


parents: 

diff
changeset




    16














3d0c34795831
Algebra and Polynomial theories, by Clemens Ballarin



paulson


parents: 

diff
changeset




    17


end













3d0c34795831
Algebra and Polynomial theories, by Clemens Ballarin



paulson


parents: 

diff
changeset




    18
















isabelle