src/HOL/SPARK/Examples/RIPEMD-160/rmd/r_l.rls
author wenzelm
Mon, 13 Apr 2020 22:08:14 +0200
changeset 71751 abf3e80bd815
parent 41561 d1318f3c86ba
permissions -rw-r--r--
tuned NEWS;
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.77*/
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     9
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    10
                              /*function RMD.R_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 r_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
r_l_rules(1): block_index__first <= element(r_values, [I]) may_be_deduced_from [0 <= I, I <= 79].
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    19
r_l_rules(2): element(r_values, [I]) <= block_index__last may_be_deduced_from [0 <= I, I <= 79].
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    20
r_l_rules(3): r_values may_be_replaced_by 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    21
           mk__block_permutation([round_index__first] := 0, [
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    22
           round_index__first + 1] := 1, [round_index__first + 2] := 2, [
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    23
           round_index__first + 3] := 3, [round_index__first + 4] := 4, [
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    24
           round_index__first + 5] := 5, [round_index__first + 6] := 6, [
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    25
           round_index__first + 7] := 7, [round_index__first + 8] := 8, [
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    26
           round_index__first + 9] := 9, [round_index__first + 10] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    27
           10, [round_index__first + 11] := 11, [
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    28
           round_index__first + 12] := 12, [round_index__first + 13] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    29
           13, [round_index__first + 14] := 14, [
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    30
           round_index__first + 15] := 15, [round_index__first + 16] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    31
           7, [round_index__first + 17] := 4, [round_index__first + 18] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    32
           13, [round_index__first + 19] := 1, [round_index__first + 20] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    33
           10, [round_index__first + 21] := 6, [round_index__first + 22] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    34
           15, [round_index__first + 23] := 3, [round_index__first + 24] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    35
           12, [round_index__first + 25] := 0, [round_index__first + 26] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    36
           9, [round_index__first + 27] := 5, [round_index__first + 28] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    37
           2, [round_index__first + 29] := 14, [round_index__first + 30] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    38
           11, [round_index__first + 31] := 8, [round_index__first + 32] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    39
           3, [round_index__first + 33] := 10, [round_index__first + 34] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    40
           14, [round_index__first + 35] := 4, [round_index__first + 36] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    41
           9, [round_index__first + 37] := 15, [round_index__first + 38] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    42
           8, [round_index__first + 39] := 1, [round_index__first + 40] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    43
           2, [round_index__first + 41] := 7, [round_index__first + 42] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    44
           0, [round_index__first + 43] := 6, [round_index__first + 44] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    45
           13, [round_index__first + 45] := 11, [
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    46
           round_index__first + 46] := 5, [round_index__first + 47] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    47
           12, [round_index__first + 48] := 1, [round_index__first + 49] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    48
           9, [round_index__first + 50] := 11, [round_index__first + 51] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    49
           10, [round_index__first + 52] := 0, [round_index__first + 53] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    50
           8, [round_index__first + 54] := 12, [round_index__first + 55] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    51
           4, [round_index__first + 56] := 13, [round_index__first + 57] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    52
           3, [round_index__first + 58] := 7, [round_index__first + 59] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    53
           15, [round_index__first + 60] := 14, [
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    54
           round_index__first + 61] := 5, [round_index__first + 62] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    55
           6, [round_index__first + 63] := 2, [round_index__first + 64] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    56
           4, [round_index__first + 65] := 0, [round_index__first + 66] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    57
           5, [round_index__first + 67] := 9, [round_index__first + 68] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    58
           7, [round_index__first + 69] := 12, [round_index__first + 70] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    59
           2, [round_index__first + 71] := 10, [round_index__first + 72] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    60
           14, [round_index__first + 73] := 1, [round_index__first + 74] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    61
           3, [round_index__first + 75] := 8, [round_index__first + 76] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    62
           11, [round_index__first + 77] := 6, [round_index__first + 78] := 
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    63
           15, [round_index__first + 79] := 13).
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    64
r_l_rules(4): block_index__size >= 0 may_be_deduced.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    65
r_l_rules(5): block_index__first may_be_replaced_by 0.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    66
r_l_rules(6): block_index__last may_be_replaced_by 15.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    67
r_l_rules(7): block_index__base__first <= block_index__base__last may_be_deduced.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    68
r_l_rules(8): block_index__base__first <= block_index__first may_be_deduced.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    69
r_l_rules(9): block_index__base__last >= block_index__last may_be_deduced.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    70
r_l_rules(10): round_index__size >= 0 may_be_deduced.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    71
r_l_rules(11): round_index__first may_be_replaced_by 0.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    72
r_l_rules(12): round_index__last may_be_replaced_by 79.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    73
r_l_rules(13): round_index__base__first <= round_index__base__last may_be_deduced.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    74
r_l_rules(14): round_index__base__first <= round_index__first may_be_deduced.
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
    75
r_l_rules(15): round_index__base__last >= round_index__last may_be_deduced.