Formal Verification of Hardware Components in Critical Systems

Listing 9

Function changeident for interchanging identity elements.

(1)	Fixpoint changeident (e : exp) : exp
(2)	match e with
(3)	| trueexp falseexp
(4)	| falseexp trueexp
(5)	| bexp e
(6)	| sumexp e1 e2
(7)	sumexp (changeident e1) (changeident e2)
(8)	|prodexp e1 e2
(9)	prodexp (changeident e1) (changeident e2)
(10)	| compexp compexp (changeident )
(11)	end.