fact: Definition interp_pos_atom a rm := match a with | Abnd x xi => BND (get rm x) xi | Aleq x xu => Rle (get rm x) xu | Ageq x xl => Rle xl (get rm x) | Aabs x xi => ABS (get rm x) xi | Arel x y xi => REL (get rm x) (get rm y) xi | Afix x xc => FIX (get rm x) xc | Aflt x xc => FLT (get rm x) xc | Anzr x => NZR (get rm x) | Aeql x y => get rm x = get rm y end.
imports: Reals List Bool Gappa_common