Definition mbed_tls_final_fround_col (col0 col1 col2 col3 : int) (rk : Z) : int :=
  (Int.xor (Int.xor (Int.xor (Int.xor (Int.repr rk)
             (Znth (byte0 col0) FSb Int.zero)              )
    (Int.shl (Znth (byte1 col1) FSb Int.zero) (Int.repr 8)))
    (Int.shl (Znth (byte2 col2) FSb Int.zero) (Int.repr 16)))
    (Int.shl (Znth (byte3 col3) FSb Int.zero) (Int.repr 24))).

Lemma mbed_tls_final_fround_col_def: mbed_tls_final_fround_col = fun (col0 col1 col2 col3 : int) (rk : Z) => (Int.xor (Int.xor (Int.xor (Int.xor (Int.repr rk) (Znth (byte0 col0) FSb Int.zero) ) (Int.shl (Znth (byte1 col1) FSb Int.zero) (Int.repr 8))) (Int.shl (Znth (byte2 col2) FSb Int.zero) (Int.repr 16))) (Int.shl (Znth (byte3 col3) FSb Int.zero) (Int.repr 24))).