open Structs
open Pieuvre

let _ = print_string (string_of_ty (TImpl(TSimple("A"),TFalse)));;