src/HOL/Codegenerator_Test/RBT_Set_Test.thy
author blanchet
Mon, 26 Nov 2012 13:35:05 +0100
changeset 50222 40e3c3be6bca
parent 49948 744934b818c7
child 50996 51ad7b4ac096
permissions -rw-r--r--
added file headers
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
48624
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
     1
(*  Title:      HOL/Codegenerator_Test/RBT_Set_Test.thy
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
     2
    Author:     Ondrej Kuncar
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
     3
*)
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
     4
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
     5
header {* Test of the code generator using an implementation of sets by RBT trees *}
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
     6
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
     7
theory RBT_Set_Test
49948
744934b818c7 moved quite generic material from theory Enum to more appropriate places
haftmann
parents: 48624
diff changeset
     8
imports "~~/src/HOL/Library/Library" "~~/src/HOL/Library/RBT_Set"
48624
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
     9
begin
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    10
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    11
(* 
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    12
   The following code equations have to be deleted because they use 
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    13
   lists to implement sets in the code generetor. 
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    14
*)
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    15
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    16
lemma [code, code del]:
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    17
  "Sup_pred_inst.Sup_pred = Sup_pred_inst.Sup_pred" ..
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    18
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    19
lemma [code, code del]:
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    20
  "Inf_pred_inst.Inf_pred = Inf_pred_inst.Inf_pred" ..
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    21
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    22
lemma [code, code del]:
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    23
  "pred_of_set = pred_of_set" ..
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    24
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    25
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    26
lemma [code, code del]:
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    27
  "Cardinality.card' = Cardinality.card'" ..
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    28
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    29
lemma [code, code del]:
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    30
  "Cardinality.finite' = Cardinality.finite'" ..
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    31
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    32
lemma [code, code del]:
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    33
  "Cardinality.subset' = Cardinality.subset'" ..
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    34
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    35
lemma [code, code del]:
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    36
  "Cardinality.eq_set = Cardinality.eq_set" ..
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    37
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    38
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    39
lemma [code, code del]:
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    40
  "acc = acc" ..
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    41
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    42
(*
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    43
  If the code generation ends with an exception with the following message:
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    44
  '"List.set" is not a constructor, on left hand side of equation: ...',
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    45
  the code equation in question has to be either deleted (like many others in this file) 
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    46
  or implemented for RBT trees.
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    47
*)
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    48
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    49
export_code _ checking SML OCaml? Haskell? Scala?
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    50
9b71daba4ec7 add testing file for RBT_Set
kuncar
parents:
diff changeset
    51
end