class
	STUDENTACCOUNT

inherit
	ACCOUNT
		redefine
			set_default_transfer_minamount
		end

create
	make

feature {NONE} -- Implementation

	set_default_transfer_minamount
		do
			set_transfer_minamount (1.0)
		end

invariant
	authorized_signers_only_one: authorized_signers.count = 1
	authorized_signers_attached: authorized_signers.linear_representation /= Void
	authorized_signers_only_students:
		(attached authorized_signers.linear_representation as signers) implies signers.for_all(
			agent (person: PERSON): BOOLEAN
				do
					Result := attached {STUDENT} person
				end)
end