src/HOL/SPARK/Examples/RIPEMD-160/rmd/s_l.rls
author wenzelm
Mon, 15 Feb 2016 14:55:44 +0100
changeset 62337 d3996d5873dd
parent 41561 d1318f3c86ba
permissions -rw-r--r--
proper syntax;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
41561
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     1
           /*********************************************************/
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     2
                           /*Proof Rule Declarations*/
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     3
    /*Examiner Pro Edition, Version 9.1.0, Build Date 20101119, Build 19039*/
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     4
             /*Copyright (C) 2010 Altran Praxis Limited, Bath, U.K.*/
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     5
           /*********************************************************/
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     6
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     7
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     8
                        /*DATE : 29-NOV-2010 14:30:19.83*/
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     9
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    10
                              /*function RMD.S_L*/
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    11
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    12
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    13
rule_family s_l_rules:
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    14
     X      requires [X:any] &
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    15
     X <= Y requires [X:ire, Y:ire] &
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    16
     X >= Y requires [X:ire, Y:ire].
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    17
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    18
s_l_rules(1): rotate_amount__first <= element(s_values, [I]) may_be_deduced_from [0 <= I, I <= 79].
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    19
s_l_rules(2): element(s_values, [I]) <= rotate_amount__last may_be_deduced_from [0 <= I, I <= 79].
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    20
s_l_rules(3): s_values may_be_replaced_by 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    21
           mk__rotate_definition([round_index__first] := 11, [
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    22
           round_index__first + 1] := 14, [round_index__first + 2] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    23
           15, [round_index__first + 3] := 12, [round_index__first + 4] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    24
           5, [round_index__first + 5] := 8, [round_index__first + 6] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    25
           7, [round_index__first + 7] := 9, [round_index__first + 8] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    26
           11, [round_index__first + 9] := 13, [round_index__first + 10] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    27
           14, [round_index__first + 11] := 15, [
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    28
           round_index__first + 12] := 6, [round_index__first + 13] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    29
           7, [round_index__first + 14] := 9, [round_index__first + 15] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    30
           8, [round_index__first + 16] := 7, [round_index__first + 17] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    31
           6, [round_index__first + 18] := 8, [round_index__first + 19] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    32
           13, [round_index__first + 20] := 11, [
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    33
           round_index__first + 21] := 9, [round_index__first + 22] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    34
           7, [round_index__first + 23] := 15, [round_index__first + 24] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    35
           7, [round_index__first + 25] := 12, [round_index__first + 26] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    36
           15, [round_index__first + 27] := 9, [round_index__first + 28] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    37
           11, [round_index__first + 29] := 7, [round_index__first + 30] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    38
           13, [round_index__first + 31] := 12, [
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    39
           round_index__first + 32] := 11, [round_index__first + 33] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    40
           13, [round_index__first + 34] := 6, [round_index__first + 35] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    41
           7, [round_index__first + 36] := 14, [round_index__first + 37] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    42
           9, [round_index__first + 38] := 13, [round_index__first + 39] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    43
           15, [round_index__first + 40] := 14, [
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    44
           round_index__first + 41] := 8, [round_index__first + 42] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    45
           13, [round_index__first + 43] := 6, [round_index__first + 44] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    46
           5, [round_index__first + 45] := 12, [round_index__first + 46] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    47
           7, [round_index__first + 47] := 5, [round_index__first + 48] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    48
           11, [round_index__first + 49] := 12, [
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    49
           round_index__first + 50] := 14, [round_index__first + 51] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    50
           15, [round_index__first + 52] := 14, [
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    51
           round_index__first + 53] := 15, [round_index__first + 54] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    52
           9, [round_index__first + 55] := 8, [round_index__first + 56] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    53
           9, [round_index__first + 57] := 14, [round_index__first + 58] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    54
           5, [round_index__first + 59] := 6, [round_index__first + 60] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    55
           8, [round_index__first + 61] := 6, [round_index__first + 62] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    56
           5, [round_index__first + 63] := 12, [round_index__first + 64] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    57
           9, [round_index__first + 65] := 15, [round_index__first + 66] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    58
           5, [round_index__first + 67] := 11, [round_index__first + 68] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    59
           6, [round_index__first + 69] := 8, [round_index__first + 70] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    60
           13, [round_index__first + 71] := 12, [
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    61
           round_index__first + 72] := 5, [round_index__first + 73] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    62
           12, [round_index__first + 74] := 13, [
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    63
           round_index__first + 75] := 14, [round_index__first + 76] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    64
           11, [round_index__first + 77] := 8, [round_index__first + 78] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    65
           5, [round_index__first + 79] := 6).
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    66
s_l_rules(4): integer__size >= 0 may_be_deduced.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    67
s_l_rules(5): integer__first may_be_replaced_by -2147483648.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    68
s_l_rules(6): integer__last may_be_replaced_by 2147483647.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    69
s_l_rules(7): integer__base__first may_be_replaced_by -2147483648.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    70
s_l_rules(8): integer__base__last may_be_replaced_by 2147483647.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    71
s_l_rules(9): round_index__size >= 0 may_be_deduced.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    72
s_l_rules(10): round_index__first may_be_replaced_by 0.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    73
s_l_rules(11): round_index__last may_be_replaced_by 79.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    74
s_l_rules(12): round_index__base__first <= round_index__base__last may_be_deduced.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    75
s_l_rules(13): round_index__base__first <= round_index__first may_be_deduced.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    76
s_l_rules(14): round_index__base__last >= round_index__last may_be_deduced.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    77
s_l_rules(15): rotate_amount__size >= 0 may_be_deduced.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    78
s_l_rules(16): rotate_amount__first may_be_replaced_by 0.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    79
s_l_rules(17): rotate_amount__last may_be_replaced_by 15.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    80
s_l_rules(18): rotate_amount__base__first may_be_replaced_by -2147483648.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    81
s_l_rules(19): rotate_amount__base__last may_be_replaced_by 2147483647.