1
(*
2
Principle ideal domains
3
$Id$
4
Author: Clemens Ballarin, started 5 October 1999
5
*)
6
7
theory PID imports Ideal begin
8
9
instance pid < factorial
10
apply intro_classes
11
apply (rule TrueI)
12
apply (erule pid_irred_imp_prime)
13
done
14
15
end