Specific

Class Product

type tuple( cat:string; subcat:set(string);

n: string, c:string; price: Price; specific: OEM;

external: list(tuple(label:string;val:URL));

private pr: tuple(

bp:Price; qis: integer;

supplier: Company; ) )

type Price : tuple(sum:int, currency:Currency);

Previous slide

Next slide

Back to first slide

View graphic version