Project

General

Profile

Statistics
| Branch: | Tag: | Revision:

lustrec / optim / oversampling / out / typed / S_g_mem_pack.v @ 6a93d814

History | View | Annotate | Download (1.03 KB)

1
(* ---------------------------------------------------------- *)
2
(* --- Struct 'g_mem_pack'                                --- *)
3
(* ---------------------------------------------------------- *)
4

    
5
Require Import ZArith.
6
Require Import Reals.
7
Require Import BuiltIn.
8
Require Import bool.Bool.
9
Require Import int.Int.
10
Require Import int.Abs.
11
Require Import int.ComputerDivision.
12
Require Import real.Real.
13
Require Import real.RealInfix.
14
Require Import real.FromInt.
15
Require Import map.Map.
16
Require Import Qedlib.
17
Require Import Qed.
18
Require Import S_g_reg.
19
Require Import S__arrow_mem_pack.
20
Require Import S_f_mem_pack.
21

    
22
Record S_g_mem_pack : Type := {
23
                                 F_g_mem_pack__reg : S_g_reg ;
24
                                 F_g_mem_pack_ni_1 : S__arrow_mem_pack ;
25
                                 F_g_mem_pack_ni_0 : S_f_mem_pack
26
}.
27

    
28
Definition IsS_g_mem_pack (S : S_g_mem_pack) : Prop :=
29
    ((IsS__arrow_mem_pack (F_g_mem_pack_ni_1 S))) /\
30
      ((IsS_f_mem_pack (F_g_mem_pack_ni_0 S))) /\
31
      ((IsS_g_reg (F_g_mem_pack__reg S))).
32