Inductive wishes_eq_horses := .

(* Specifications: *)
Lemma float32_payload_inj: wishes_eq_horses -> forall s1 pl1 s2 pl2, Float.of_single_pl s1 pl1= Float.of_single_pl s2 pl2 -> (s1,pl1) = (s2,pl2).
Lemma single_of_bits_inj: forall i j : Int.int, Float32.of_bits i = Float32.of_bits j -> i=j.
Lemma Vint_inj: forall i j, Vint i = Vint j -> i=j.
Lemma decode_val_uniq: (* Just not true any more, with Fragments *) forall ch b1 b2 v, v <> Vundef -> length b1 = size_chunk_nat ch -> length b2 = size_chunk_nat ch -> decode_val ch b1 = v -> decode_val ch b2 = v -> b1=b2.