let in_list (name0 : string) (value : string) (name : string) (var : string) : bool =
if(is_a_list var)
then(
let list_to_refer = get_value_of_var name var in
let old_value_of_list = if(Hashtbl.mem var_value ("x",list_to_refer)) then (Hashtbl.find var_value ("x",list_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_list in
(decomp<>[]) && (List.mem val_to_add (cdr decomp))
)
else false