let in_set (name0 : string) (value : string) (name : string) (var : string) : bool =
         if(is_a_set var)
        then(
                let set_to_refer = get_value_of_var name var in
                let old_value_of_set = if(Hashtbl.mem var_value ("x",set_to_refer)) then (Hashtbl.find var_value ("x",set_to_refer)) else "" in
                let val_to_add = 
                        if((is_a_var value))
                        then (get_value_of_var name0 value)
                         else value in
                let decomp = decompose old_value_of_set in
                (decomp<>[]) && (List.mem val_to_add (cdr decomp))
        )
        else false