library ieee;
use ieee.std_logic_1164.all;

package MINE is 
  function WEAKEN (I : std_logic) return std_logic;
end package MINE;

package body MINE is
  function WEAKEN (I : std_logic) return std_logic is
    variable TEMP : std_logic;    
  begin
    case I is
      when '0' | 'L' => TEMP := 'L';
      when '1' | 'H' => TEMP := 'H';
      when 'X' | 'W' => TEMP := 'W';
      when others => TEMP := I;
    end case;
    return TEMP;
   end WEAKEN;
end MINE;