MODULE main
	VAR
		request : boolean;
		status : {ready,busy};
	ASSIGN
		init(status) := ready;
		next(status) := 
			case
				request : busy;
				1 : {ready,busy};
			esac;
	SPEC
		AG(request -> AF status = busy)