From df03890491fc9c549376d26262b0be3707c00f59 Mon Sep 17 00:00:00 2001 From: Son Ho Date: Tue, 23 May 2023 14:47:26 +0200 Subject: Add the generated HOL4 files --- tests/hol4/misc-external/external_OpaqueScript.sml | 25 ++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 tests/hol4/misc-external/external_OpaqueScript.sml (limited to 'tests/hol4/misc-external/external_OpaqueScript.sml') diff --git a/tests/hol4/misc-external/external_OpaqueScript.sml b/tests/hol4/misc-external/external_OpaqueScript.sml new file mode 100644 index 00000000..e2fd281d --- /dev/null +++ b/tests/hol4/misc-external/external_OpaqueScript.sml @@ -0,0 +1,25 @@ +(** THIS FILE WAS AUTOMATICALLY GENERATED BY AENEAS *) +(** [external]: opaque function definitions *) +open primitivesLib divDefLib +open external_TypesTheory + +val _ = new_theory "external_Opaque" + + +val _ = new_constant ("core_mem_swap_fwd", + “:'t -> 't -> state -> (state # unit) result”) + +val _ = new_constant ("core_mem_swap_back0", + “:'t -> 't -> state -> state -> (state # 't) result”) + +val _ = new_constant ("core_mem_swap_back1", + “:'t -> 't -> state -> state -> (state # 't) result”) + +val _ = new_constant ("core_num_nonzero_non_zero_u32_new_fwd", + “:u32 -> state -> (state # core_num_nonzero_non_zero_u32_t option) + result”) + +val _ = new_constant ("core_option_option_unwrap_fwd", + “:'t option -> state -> (state # 't) result”) + +val _ = export_theory () -- cgit v1.2.3