src/HOL/SPARK/Examples/RIPEMD-160/rmd/s_r.rls
author wenzelm
Wed, 04 Oct 2017 12:00:53 +0200
changeset 66787 64b47495676d
parent 41561 d1318f3c86ba
permissions -rw-r--r--
obsolete;
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.84*/
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_R*/
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_r_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_r_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_r_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_r_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] := 8, [
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    22
           round_index__first + 1] := 9, [round_index__first + 2] := 9, [
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    23
           round_index__first + 3] := 11, [round_index__first + 4] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    24
           13, [round_index__first + 5] := 15, [round_index__first + 6] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    25
           15, [round_index__first + 7] := 5, [round_index__first + 8] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    26
           7, [round_index__first + 9] := 7, [round_index__first + 10] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    27
           8, [round_index__first + 11] := 11, [round_index__first + 12] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    28
           14, [round_index__first + 13] := 14, [
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    29
           round_index__first + 14] := 12, [round_index__first + 15] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    30
           6, [round_index__first + 16] := 9, [round_index__first + 17] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    31
           13, [round_index__first + 18] := 15, [
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    32
           round_index__first + 19] := 7, [round_index__first + 20] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    33
           12, [round_index__first + 21] := 8, [round_index__first + 22] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    34
           9, [round_index__first + 23] := 11, [round_index__first + 24] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    35
           7, [round_index__first + 25] := 7, [round_index__first + 26] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    36
           12, [round_index__first + 27] := 7, [round_index__first + 28] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    37
           6, [round_index__first + 29] := 15, [round_index__first + 30] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    38
           13, [round_index__first + 31] := 11, [
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    39
           round_index__first + 32] := 9, [round_index__first + 33] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    40
           7, [round_index__first + 34] := 15, [round_index__first + 35] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    41
           11, [round_index__first + 36] := 8, [round_index__first + 37] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    42
           6, [round_index__first + 38] := 6, [round_index__first + 39] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    43
           14, [round_index__first + 40] := 12, [
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    44
           round_index__first + 41] := 13, [round_index__first + 42] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    45
           5, [round_index__first + 43] := 14, [round_index__first + 44] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    46
           13, [round_index__first + 45] := 13, [
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    47
           round_index__first + 46] := 7, [round_index__first + 47] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    48
           5, [round_index__first + 48] := 15, [round_index__first + 49] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    49
           5, [round_index__first + 50] := 8, [round_index__first + 51] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    50
           11, [round_index__first + 52] := 14, [
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    51
           round_index__first + 53] := 14, [round_index__first + 54] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    52
           6, [round_index__first + 55] := 14, [round_index__first + 56] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    53
           6, [round_index__first + 57] := 9, [round_index__first + 58] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    54
           12, [round_index__first + 59] := 9, [round_index__first + 60] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    55
           12, [round_index__first + 61] := 5, [round_index__first + 62] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    56
           15, [round_index__first + 63] := 8, [round_index__first + 64] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    57
           8, [round_index__first + 65] := 5, [round_index__first + 66] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    58
           12, [round_index__first + 67] := 9, [round_index__first + 68] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    59
           12, [round_index__first + 69] := 5, [round_index__first + 70] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    60
           14, [round_index__first + 71] := 6, [round_index__first + 72] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    61
           8, [round_index__first + 73] := 13, [round_index__first + 74] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    62
           6, [round_index__first + 75] := 5, [round_index__first + 76] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    63
           15, [round_index__first + 77] := 13, [
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    64
           round_index__first + 78] := 11, [round_index__first + 79] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    65
           11).
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    66
s_r_rules(4): integer__size >= 0 may_be_deduced.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    67
s_r_rules(5): integer__first may_be_replaced_by -2147483648.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    68
s_r_rules(6): integer__last may_be_replaced_by 2147483647.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    69
s_r_rules(7): integer__base__first may_be_replaced_by -2147483648.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    70
s_r_rules(8): integer__base__last may_be_replaced_by 2147483647.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    71
s_r_rules(9): round_index__size >= 0 may_be_deduced.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    72
s_r_rules(10): round_index__first may_be_replaced_by 0.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    73
s_r_rules(11): round_index__last may_be_replaced_by 79.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    74
s_r_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_r_rules(13): round_index__base__first <= round_index__first may_be_deduced.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    76
s_r_rules(14): round_index__base__last >= round_index__last may_be_deduced.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    77
s_r_rules(15): rotate_amount__size >= 0 may_be_deduced.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    78
s_r_rules(16): rotate_amount__first may_be_replaced_by 0.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    79
s_r_rules(17): rotate_amount__last may_be_replaced_by 15.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    80
s_r_rules(18): rotate_amount__base__first may_be_replaced_by -2147483648.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    81
s_r_rules(19): rotate_amount__base__last may_be_replaced_by 2147483647.