(circuits
(pre_circuit?_TCC1 0
(pre_circuit?_TCC1-1 nil 3560614114 ("" (subtype-tcc) nil nil)
((T formal-type-decl nil circuits nil)
(verts_in? const-decl "bool" walks nil)
(finseq_appl const-decl "[below[length(fs)] -> T]" finite_sequences
nil)
(edge? const-decl "bool" digraphs nil)
(walk? const-decl "bool" walks nil))
nil))
(pre_circuit?_TCC2 0
(pre_circuit?_TCC2-1 nil 3560614114 ("" (subtype-tcc) nil nil)
((T formal-type-decl nil circuits nil)
(verts_in? const-decl "bool" walks nil)
(finseq_appl const-decl "[below[length(fs)] -> T]" finite_sequences
nil)
(edge? const-decl "bool" digraphs nil)
(walk? const-decl "bool" walks nil))
nil))
(eq_circuit?_TCC1 0
(eq_circuit?_TCC1-1 nil 3563142575 ("" (subtype-tcc) nil nil)
((boolean nonempty-type-decl nil booleans nil)
(bool nonempty-type-eq-decl nil booleans nil)
(NOT const-decl "[bool -> bool]" booleans nil)
(edgetype type-eq-decl nil digraphs nil)
(IMPLIES const-decl "[bool, bool -> bool]" booleans nil)
(finite_set type-eq-decl nil finite_sets nil)
(predigraph type-eq-decl nil digraphs nil)
(AND const-decl "[bool, bool -> bool]" booleans nil)
(digraph type-eq-decl nil digraphs nil)
(number nonempty-type-decl nil numbers nil)
(number_field_pred const-decl "[number -> boolean]" number_fields
nil)
(number_field nonempty-type-from-decl nil number_fields nil)
(real_pred const-decl "[number_field -> boolean]" reals nil)
(real nonempty-type-from-decl nil reals nil)
(> const-decl "bool" reals nil)
(nat nonempty-type-eq-decl nil naturalnumbers nil)
(below type-eq-decl nil nat_types nil)
(finseq type-eq-decl nil finite_sequences nil)
(prewalk type-eq-decl nil walks nil)
(min const-decl "{p: real | p <= m AND p <= n}" real_defs nil)
(^ const-decl "finseq" finite_sequences nil)
(int_plus_int_is_int application-judgement "int" integers nil)
(int_min application-judgement "{k: int | k <= i AND k <= j}"
real_defs nil)
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil)
(int_minus_int_is_int application-judgement "int" integers nil)
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil)
(T formal-type-decl nil circuits nil)
(verts_in? const-decl "bool" walks nil)
(finseq_appl const-decl "[below[length(fs)] -> T]" finite_sequences
nil)
(edge? const-decl "bool" digraphs nil)
(walk? const-decl "bool" walks nil)
(pre_circuit? const-decl "bool" circuits nil)
(circuit? const-decl "bool" circuits nil)
(rest const-decl "finseq" seq_extras "structures/")
(posint_plus_nnint_is_posint application-judgement "posint"
integers nil))
nil))
(eq_circuit?_TCC2 0
(eq_circuit?_TCC2-1 nil 3563142575 ("" (subtype-tcc) nil nil)
((boolean nonempty-type-decl nil booleans nil)
(bool nonempty-type-eq-decl nil booleans nil)
(NOT const-decl "[bool -> bool]" booleans nil)
(edgetype type-eq-decl nil digraphs nil)
(IMPLIES const-decl "[bool, bool -> bool]" booleans nil)
(finite_set type-eq-decl nil finite_sets nil)
(predigraph type-eq-decl nil digraphs nil)
(AND const-decl "[bool, bool -> bool]" booleans nil)
(digraph type-eq-decl nil digraphs nil)
(number nonempty-type-decl nil numbers nil)
(number_field_pred const-decl "[number -> boolean]" number_fields
nil)
(number_field nonempty-type-from-decl nil number_fields nil)
(real_pred const-decl "[number_field -> boolean]" reals nil)
(real nonempty-type-from-decl nil reals nil)
(> const-decl "bool" reals nil)
(nat nonempty-type-eq-decl nil naturalnumbers nil)
(below type-eq-decl nil nat_types nil)
(finseq type-eq-decl nil finite_sequences nil)
(prewalk type-eq-decl nil walks nil)
(min const-decl "{p: real | p <= m AND p <= n}" real_defs nil)
(^ const-decl "finseq" finite_sequences nil)
(int_plus_int_is_int application-judgement "int" integers nil)
(int_min application-judgement "{k: int | k <= i AND k <= j}"
real_defs nil)
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil)
(int_minus_int_is_int application-judgement "int" integers nil)
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil)
(T formal-type-decl nil circuits nil)
(verts_in? const-decl "bool" walks nil)
(finseq_appl const-decl "[below[length(fs)] -> T]" finite_sequences
nil)
(edge? const-decl "bool" digraphs nil)
(walk? const-decl "bool" walks nil)
(pre_circuit? const-decl "bool" circuits nil)
(circuit? const-decl "bool" circuits nil)
(rest const-decl "finseq" seq_extras "structures/")
(posint_plus_nnint_is_posint application-judgement "posint"
integers nil))
nil))
(eq_circuit_length 0
(eq_circuit_length-1 nil 3579518251
("" (skeep)
(("" (expand "eq_circuit?")
(("" (flatten)
(("" (lemma "eq_prewalk_length")
(("" (inst -1 "rest(w1)" "rest(w2)")
(("" (assert)
(("" (hide -4)
(("" (expand "circuit?")
(("" (flatten)
(("" (hide -2 -4)
(("" (expand* "rest" "^" "min")
(("" (assert) nil nil)) nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil)
((eq_circuit? const-decl "bool" circuits nil)
(T formal-type-decl nil circuits nil)
(eq_prewalk_length formula-decl nil walks nil)
(circuit? const-decl "bool" circuits nil)
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil)
(int_minus_int_is_int application-judgement "int" integers nil)
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil)
(min const-decl "{p: real | p <= m AND p <= n}" real_defs nil)
(posint_plus_nnint_is_posint application-judgement "posint"
integers nil)
(^ const-decl "finseq" finite_sequences nil)
(rest const-decl "finseq" seq_extras "structures/")
(prewalk type-eq-decl nil walks nil)
(> const-decl "bool" reals nil)
(bool nonempty-type-eq-decl nil booleans nil)
(real nonempty-type-from-decl nil reals nil)
(real_pred const-decl "[number_field -> boolean]" reals nil)
(number_field nonempty-type-from-decl nil number_fields nil)
(number_field_pred const-decl "[number -> boolean]" number_fields
nil)
(boolean nonempty-type-decl nil booleans nil)
(number nonempty-type-decl nil numbers nil)
(finseq type-eq-decl nil finite_sequences nil)
(below type-eq-decl nil nat_types nil)
(nat nonempty-type-eq-decl nil naturalnumbers nil))
shostak))
(eq_circuit_reflexive 0
(eq_circuit_reflexive-1 nil 3582581994
("" (skeep)
(("" (expand "eq_circuit?")
(("" (assert)
(("" (hide -1)
(("" (lemma "eq_relation_eq_prewalk")
(("" (expand "equivalence?")
(("" (flatten)
(("" (hide -2 -3)
(("" (expand "reflexive?")
(("" (inst -1 "rest(w)") nil nil)) nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil)
((eq_circuit? const-decl "bool" circuits nil)
(equivalence? const-decl "bool" relations nil)
(nat nonempty-type-eq-decl nil naturalnumbers nil)
(below type-eq-decl nil nat_types nil)
(finseq type-eq-decl nil finite_sequences nil)
(number nonempty-type-decl nil numbers nil)
(boolean nonempty-type-decl nil booleans nil)
(number_field_pred const-decl "[number -> boolean]" number_fields
nil)
(number_field nonempty-type-from-decl nil number_fields nil)
(real_pred const-decl "[number_field -> boolean]" reals nil)
(real nonempty-type-from-decl nil reals nil)
(bool nonempty-type-eq-decl nil booleans nil)
(> const-decl "bool" reals nil)
(prewalk type-eq-decl nil walks nil)
(rest const-decl "finseq" seq_extras "structures/")
(reflexive? const-decl "bool" relations nil)
(eq_relation_eq_prewalk formula-decl nil walks nil)
(T formal-type-decl nil circuits nil))
shostak))
(eq_circuit_symmetric 0
(eq_circuit_symmetric-1 nil 3563539116
("" (skeep)
(("" (expand "eq_circuit?")
(("" (flatten)
(("" (assert)
(("" (hide -1 -2)
(("" (lemma "eq_relation_eq_prewalk")
(("" (expand "equivalence?")
(("" (flatten)
(("" (hide -1 -3)
(("" (expand "symmetric?")
(("" (inst -1 "rest(w1)" "rest(w2)")
(("" (assert) nil nil)) nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil)
((eq_circuit? const-decl "bool" circuits nil)
(T formal-type-decl nil circuits nil)
(eq_relation_eq_prewalk formula-decl nil walks nil)
(symmetric? const-decl "bool" relations nil)
(rest const-decl "finseq" seq_extras "structures/")
(prewalk type-eq-decl nil walks nil)
(> const-decl "bool" reals nil)
(bool nonempty-type-eq-decl nil booleans nil)
(real nonempty-type-from-decl nil reals nil)
(real_pred const-decl "[number_field -> boolean]" reals nil)
(number_field nonempty-type-from-decl nil number_fields nil)
(number_field_pred const-decl "[number -> boolean]" number_fields
nil)
(boolean nonempty-type-decl nil booleans nil)
(number nonempty-type-decl nil numbers nil)
(finseq type-eq-decl nil finite_sequences nil)
(below type-eq-decl nil nat_types nil)
(nat nonempty-type-eq-decl nil naturalnumbers nil)
(equivalence? const-decl "bool" relations nil))
shostak))
(loop_is_circuit 0
(loop_is_circuit-1 nil 3560698741
("" (skeep)
(("" (expand* "loop?" "circuit?")
(("" (flatten) (("" (assert) nil nil)) nil)) nil))
nil)
((circuit? const-decl "bool" circuits nil)
(loop? const-decl "bool" circuits nil))
shostak))
(equal_rest_equal_circuit 0
(equal_rest_equal_circuit-1 nil 3578694276
("" (skeep)
(("" (decompose-equality 1)
(("1" (hide -1 -2) (("1" (grind) nil nil)) nil)
("2" (decompose-equality 1)
(("2" (typepred "x!1")
(("2" (expand* "circuit?" "pre_circuit?" "finseq_appl")
(("2" (flatten)
(("2" (hide -2 -5)
(("2" (expand "rest")
(("2" (expand "^")
(("2" (grind)
(("2" (decompose-equality -6)
(("2" (case "x!1 = 0")
(("1" (inst -2 " w2`length - 2")
(("1" (assert) nil nil)) nil)
("2" (hide -3 -5)
(("2" (inst -1 "x!1 - 1")
(("1" (assert) nil nil)
("2" (assert) nil nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil)
((number nonempty-type-decl nil numbers nil)
(boolean nonempty-type-decl nil booleans nil)
(number_field_pred const-decl "[number -> boolean]" number_fields
nil)
(number_field nonempty-type-from-decl nil number_fields nil)
(real_pred const-decl "[number_field -> boolean]" reals nil)
(real nonempty-type-from-decl nil reals nil)
(bool nonempty-type-eq-decl nil booleans nil)
(> const-decl "bool" reals nil)
(prewalk type-eq-decl nil walks nil)
(finseq type-eq-decl nil finite_sequences nil)
(T formal-type-decl nil circuits nil)
(below type-eq-decl nil nat_types nil)
(nat nonempty-type-eq-decl nil naturalnumbers nil)
(posint_plus_nnint_is_posint application-judgement "posint"
integers nil)
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil)
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil)
(int_min application-judgement "{k: int | k <= i AND k <= j}"
real_defs nil)
(int_minus_int_is_int application-judgement "int" integers nil)
(empty_seq const-decl "finseq" finite_sequences nil)
(min const-decl "{p: real | p <= m AND p <= n}" real_defs nil)
(^ const-decl "finseq" finite_sequences nil)
(rest const-decl "finseq" seq_extras "structures/")
(NOT const-decl "[bool -> bool]" booleans nil)
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil)
(int_plus_int_is_int application-judgement "int" integers nil)
(w1 skolem-const-decl "prewalk[T]" circuits nil)
(x!1 skolem-const-decl "below[w1`length]" circuits nil)
(AND const-decl "[bool, bool -> bool]" booleans nil)
(<= const-decl "bool" reals nil)
(numfield nonempty-type-eq-decl nil number_fields nil)
(- const-decl "[numfield, numfield -> numfield]" number_fields nil)
(= const-decl "[T, T -> boolean]" equalities nil)
(+ const-decl "[numfield, numfield -> numfield]" number_fields nil)
(IMPLIES const-decl "[bool, bool -> bool]" booleans nil)
(circuit? const-decl "bool" circuits nil)
(finseq_appl const-decl "[below[length(fs)] -> T]" finite_sequences
nil)
(pre_circuit? const-decl "bool" circuits nil)
(rational_pred const-decl "[real -> boolean]" rationals nil)
(rational nonempty-type-from-decl nil rationals nil)
(integer_pred const-decl "[rational -> boolean]" integers nil)
(int nonempty-type-eq-decl nil integers nil)
(>= const-decl "bool" reals nil) (< const-decl "bool" reals nil))
shostak))
(equal_eq_circuit 0
(equal_eq_circuit-1 nil 3578330066
("" (lemma "equal_rest_equal_circuit")
(("" (skeep)
(("" (inst -1 "G" "w1" "w2")
(("" (expand "eq_circuit?")
(("" (flatten) (("" (hide -4) (("" (assert) nil nil)) nil))
nil))
nil))
nil))
nil))
nil)
((eq_circuit? const-decl "bool" circuits nil)
(prewalk type-eq-decl nil walks nil)
(> const-decl "bool" reals nil)
(real nonempty-type-from-decl nil reals nil)
(real_pred const-decl "[number_field -> boolean]" reals nil)
(number_field nonempty-type-from-decl nil number_fields nil)
(number_field_pred const-decl "[number -> boolean]" number_fields
nil)
(number nonempty-type-decl nil numbers nil)
(finseq type-eq-decl nil finite_sequences nil)
(below type-eq-decl nil nat_types nil)
(nat nonempty-type-eq-decl nil naturalnumbers nil)
(digraph type-eq-decl nil digraphs nil)
(AND const-decl "[bool, bool -> bool]" booleans nil)
(IMPLIES const-decl "[bool, bool -> bool]" booleans nil)
(bool nonempty-type-eq-decl nil booleans nil)
(boolean nonempty-type-decl nil booleans nil)
(predigraph type-eq-decl nil digraphs nil)
(finite_set type-eq-decl nil finite_sets nil)
(edgetype type-eq-decl nil digraphs nil)
(T formal-type-decl nil circuits nil)
(equal_rest_equal_circuit formula-decl nil circuits nil))
shostak))
(circuit_equal_fisrt_TCC1 0
(circuit_equal_fisrt_TCC1-1 nil 3578740546 ("" (subtype-tcc) nil nil)
((boolean nonempty-type-decl nil booleans nil)
(bool nonempty-type-eq-decl nil booleans nil)
(NOT const-decl "[bool -> bool]" booleans nil)
(edgetype type-eq-decl nil digraphs nil)
(IMPLIES const-decl "[bool, bool -> bool]" booleans nil)
(finite_set type-eq-decl nil finite_sets nil)
(predigraph type-eq-decl nil digraphs nil)
(AND const-decl "[bool, bool -> bool]" booleans nil)
(digraph type-eq-decl nil digraphs nil)
(number nonempty-type-decl nil numbers nil)
(number_field_pred const-decl "[number -> boolean]" number_fields
nil)
(number_field nonempty-type-from-decl nil number_fields nil)
(real_pred const-decl "[number_field -> boolean]" reals nil)
(real nonempty-type-from-decl nil reals nil)
(> const-decl "bool" reals nil)
(nat nonempty-type-eq-decl nil naturalnumbers nil)
(below type-eq-decl nil nat_types nil)
(finseq type-eq-decl nil finite_sequences nil)
(prewalk type-eq-decl nil walks nil)
(min const-decl "{p: real | p <= m AND p <= n}" real_defs nil)
(^ const-decl "finseq" finite_sequences nil)
(int_plus_int_is_int application-judgement "int" integers nil)
(int_min application-judgement "{k: int | k <= i AND k <= j}"
real_defs nil)
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil)
(nnint_plus_nnint_is_nnint application-judgement "nonneg_int"
integers nil)
(int_minus_int_is_int application-judgement "int" integers nil)
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil)
(T formal-type-decl nil circuits nil)
(verts_in? const-decl "bool" walks nil)
(finseq_appl const-decl "[below[length(fs)] -> T]" finite_sequences
nil)
(edge? const-decl "bool" digraphs nil)
(walk? const-decl "bool" walks nil)
(pre_circuit? const-decl "bool" circuits nil)
(circuit? const-decl "bool" circuits nil)
(rest const-decl "finseq" seq_extras "structures/")
(O const-decl "finseq" finite_sequences nil)
(posint_plus_nnint_is_posint application-judgement "posint"
integers nil))
nil))
(circuit_equal_fisrt_TCC2 0
(circuit_equal_fisrt_TCC2-1 nil 3578740546 ("" (subtype-tcc) nil nil)
((T formal-type-decl nil circuits nil)
(rest const-decl "finseq" seq_extras "structures/")
(O const-decl "finseq" finite_sequences nil)
(verts_in? const-decl "bool" walks nil)
(finseq_appl const-decl "[below[length(fs)] -> T]" finite_sequences
nil)
(edge? const-decl "bool" digraphs nil)
(walk? const-decl "bool" walks nil)
(pre_circuit? const-decl "bool" circuits nil)
(circuit? const-decl "bool" circuits nil)
(nnint_plus_nnint_is_nnint application-judgement "nonneg_int"
integers nil)
(posint_plus_nnint_is_posint application-judgement "posint"
integers nil))
nil))
(circuit_equal_fisrt_TCC3 0
(circuit_equal_fisrt_TCC3-1 nil 3578740546 ("" (subtype-tcc) nil nil)
((T formal-type-decl nil circuits nil)
(rest const-decl "finseq" seq_extras "structures/")
(O const-decl "finseq" finite_sequences nil)
(verts_in? const-decl "bool" walks nil)
(finseq_appl const-decl "[below[length(fs)] -> T]" finite_sequences
nil)
(edge? const-decl "bool" digraphs nil)
(walk? const-decl "bool" walks nil)
(pre_circuit? const-decl "bool" circuits nil)
(circuit? const-decl "bool" circuits nil)
(nnint_plus_nnint_is_nnint application-judgement "nonneg_int"
integers nil)
(posint_plus_nnint_is_posint application-judgement "posint"
integers nil))
nil))
(circuit_equal_fisrt 0
(circuit_equal_fisrt-1 nil 3578740547
("" (skeep)
(("" (expand "circuit?")
(("" (expand "pre_circuit?")
(("" (flatten)
(("" (hide -1 -4 -7)
(("" (expand "finseq_appl")
(("" (expand "o ")
(("" (case "rest(w2)`length > 0")
(("1" (assert)
(("1" (expand "rest" -6)
(("1" (expand* "^" "min")
(("1" (assert) nil nil)) nil))
nil))
nil)
("2" (hide-all-but (-4 1))
(("2" (expand* "rest" "^" "min")
(("2" (assert) nil nil)) nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil)
((circuit? const-decl "bool" circuits nil)
(finseq_appl const-decl "[below[length(fs)] -> T]" finite_sequences
nil)
(prewalk type-eq-decl nil walks nil)
(rest const-decl "finseq" seq_extras "structures/")
(finseq type-eq-decl nil finite_sequences nil)
(T formal-type-decl nil circuits nil)
(below type-eq-decl nil nat_types nil)
(nat nonempty-type-eq-decl nil naturalnumbers nil)
(> const-decl "bool" reals nil)
(bool nonempty-type-eq-decl nil booleans nil)
(real nonempty-type-from-decl nil reals nil)
(real_pred const-decl "[number_field -> boolean]" reals nil)
(number_field nonempty-type-from-decl nil number_fields nil)
(number_field_pred const-decl "[number -> boolean]" number_fields
nil)
(boolean nonempty-type-decl nil booleans nil)
(number nonempty-type-decl nil numbers nil)
(^ const-decl "finseq" finite_sequences nil)
(posint_plus_nnint_is_posint application-judgement "posint"
integers nil)
(min const-decl "{p: real | p <= m AND p <= n}" real_defs nil)
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil)
(int_minus_int_is_int application-judgement "int" integers nil)
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil)
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil)
(O const-decl "finseq" finite_sequences nil)
(nnint_plus_nnint_is_nnint application-judgement "nonneg_int"
integers nil)
(pre_circuit? const-decl "bool" circuits nil))
shostak))
(comp_circuit_inter_TCC1 0
(comp_circuit_inter_TCC1-1 nil 3578757841 ("" (subtype-tcc) nil nil)
((boolean nonempty-type-decl nil booleans nil)
(bool nonempty-type-eq-decl nil booleans nil)
(NOT const-decl "[bool -> bool]" booleans nil)
(number nonempty-type-decl nil numbers nil)
(number_field_pred const-decl "[number -> boolean]" number_fields
nil)
(number_field nonempty-type-from-decl nil number_fields nil)
(real_pred const-decl "[number_field -> boolean]" reals nil)
(real nonempty-type-from-decl nil reals nil)
(> const-decl "bool" reals nil)
(nat nonempty-type-eq-decl nil naturalnumbers nil)
(below type-eq-decl nil nat_types nil)
(finseq type-eq-decl nil finite_sequences nil)
(prewalk type-eq-decl nil walks nil)
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil)
(nnint_plus_nnint_is_nnint application-judgement "nonneg_int"
integers nil)
(int_minus_int_is_int application-judgement "int" integers nil)
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil)
(T formal-type-decl nil circuits nil)
(rest const-decl "finseq" seq_extras "structures/")
(O const-decl "finseq" finite_sequences nil)
(posint_plus_nnint_is_posint application-judgement "posint"
integers nil))
nil))
(comp_circuit_inter 0
(comp_circuit_inter-1 nil 3578757843
("" (skeep)
(("" (expand "circuit?")
(("" (expand "pre_circuit?")
(("" (flatten)
(("" (hide -1 -3)
(("" (expand "finseq_appl")
(("" (expand "o ")
(("" (case "rest(w2)`length > 0")
(("1" (assert)
(("1" (hide -1)
(("1" (expand "rest")
(("1" (expand "^")
(("1" (expand "min")
(("1" (expand "nonempty?")
(("1"
(expand "empty?")
(("1"
(inst -3 "w1`seq(0)")
(("1"
(expand "intersection")
(("1"
(expand "member")
(("1"
(expand "verts_of")
(("1"
(expand "finseq_appl")
(("1"
(split)
(("1" (inst 1 "0") nil nil)
("2"
(inst 1 "w2`length - 1")
(("2" (assert) nil nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil)
("2" (hide -1 2)
(("2" (expand "rest")
(("2" (expand "^")
(("2" (expand "min") (("2" (assert) nil nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil)
((circuit? const-decl "bool" circuits nil)
(finseq_appl const-decl "[below[length(fs)] -> T]" finite_sequences
nil)
(prewalk type-eq-decl nil walks nil)
(rest const-decl "finseq" seq_extras "structures/")
(finseq type-eq-decl nil finite_sequences nil)
(T formal-type-decl nil circuits nil)
(below type-eq-decl nil nat_types nil)
(nat nonempty-type-eq-decl nil naturalnumbers nil)
(> const-decl "bool" reals nil)
(bool nonempty-type-eq-decl nil booleans nil)
(real nonempty-type-from-decl nil reals nil)
(real_pred const-decl "[number_field -> boolean]" reals nil)
(number_field nonempty-type-from-decl nil number_fields nil)
(number_field_pred const-decl "[number -> boolean]" number_fields
nil)
(boolean nonempty-type-decl nil booleans nil)
(number nonempty-type-decl nil numbers nil)
(posint_plus_nnint_is_posint application-judgement "posint"
integers nil)
(^ const-decl "finseq" finite_sequences nil)
(nonempty? const-decl "bool" sets nil)
(member const-decl "bool" sets nil)
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil)
(- const-decl "[numfield, numfield -> numfield]" number_fields nil)
(numfield nonempty-type-eq-decl nil number_fields nil)
(below type-eq-decl nil naturalnumbers nil)
(< const-decl "bool" reals nil) (>= const-decl "bool" reals nil)
(int nonempty-type-eq-decl nil integers nil)
(integer_pred const-decl "[rational -> boolean]" integers nil)
(rational nonempty-type-from-decl nil rationals nil)
(rational_pred const-decl "[real -> boolean]" rationals nil)
(verts_of const-decl "finite_set[T]" walks nil)
(intersection const-decl "set" sets nil)
(empty? const-decl "bool" sets nil)
(min const-decl "{p: real | p <= m AND p <= n}" real_defs nil)
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil)
(finite_intersection2 application-judgement "finite_set[T]"
circuits nil)
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil)
(int_minus_int_is_int application-judgement "int" integers nil)
(O const-decl "finseq" finite_sequences nil)
(nnint_plus_nnint_is_nnint application-judgement "nonneg_int"
integers nil)
(pre_circuit? const-decl "bool" circuits nil))
shostak))
(eq_circuit_position_TCC1 0
(eq_circuit_position_TCC1-1 nil 3582720412 ("" (subtype-tcc) nil nil)
((boolean nonempty-type-decl nil booleans nil)
(bool nonempty-type-eq-decl nil booleans nil)
(NOT const-decl "[bool -> bool]" booleans nil)
(edgetype type-eq-decl nil digraphs nil)
(IMPLIES const-decl "[bool, bool -> bool]" booleans nil)
(finite_set type-eq-decl nil finite_sets nil)
(predigraph type-eq-decl nil digraphs nil)
(AND const-decl "[bool, bool -> bool]" booleans nil)
(digraph type-eq-decl nil digraphs nil)
(number nonempty-type-decl nil numbers nil)
(number_field_pred const-decl "[number -> boolean]" number_fields
nil)
(number_field nonempty-type-from-decl nil number_fields nil)
(real_pred const-decl "[number_field -> boolean]" reals nil)
(real nonempty-type-from-decl nil reals nil)
(> const-decl "bool" reals nil)
(nat nonempty-type-eq-decl nil naturalnumbers nil)
(below type-eq-decl nil nat_types nil)
(finseq type-eq-decl nil finite_sequences nil)
(prewalk type-eq-decl nil walks nil)
(real_ge_is_total_order name-judgement "(total_order?[real])"
real_props nil)
(int_minus_int_is_int application-judgement "int" integers nil)
(real_gt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil)
(real_lt_is_strict_total_order name-judgement
"(strict_total_order?[real])" real_props nil)
(< const-decl "bool" reals nil)
(rational_pred const-decl "[real -> boolean]" rationals nil)
(rational nonempty-type-from-decl nil rationals nil)
(integer_pred const-decl "[rational -> boolean]" integers nil)
(int nonempty-type-eq-decl nil integers nil)
(>= const-decl "bool" reals nil)
(T formal-type-decl nil circuits nil)
(verts_in? const-decl "bool" walks nil)
(finseq_appl const-decl "[below[length(fs)] -> T]" finite_sequences
nil)
(edge? const-decl "bool" digraphs nil)
(walk? const-decl "bool" walks nil)
(pre_circuit? const-decl "bool" circuits nil)
(circuit? const-decl "bool" circuits nil)
(rest const-decl "finseq" seq_extras "structures/")
(O const-decl "finseq" finite_sequences nil)
(reord_prewalk const-decl "prewalk" walks nil)
(eq_prewalk? const-decl "bool" walks nil)
(eq_circuit? const-decl "bool" circuits nil)
(posint_plus_nnint_is_posint application-judgement "posint"
integers nil))
nil))
(eq_circuit_position 0
(eq_circuit_position-1 nil 3582720425
("" (auto-rewrite "finseq_appl")
(("" (skeep)
(("" (lemma "eq_circuit_length")
(("" (inst -1 "G" "w1" "w2")
(("" (assert)
(("" (expand "eq_circuit?")
(("" (flatten)
(("" (expand "eq_prewalk?")
(("" (split)
(("1" (case-replace "w1 = w2")
(("1" (hide -1 -2)
(("1" (expand* "circuit?" "pre_circuit?")
(("1" (flatten)
(("1" (hide -1)
(("1"
(assert)
(("1"
(inst 1 "length(w2) - 1")
(("1"
(expand "^" 1 1)
(("1"
(rewrite "empty_o_seq")
(("1"
(decompose-equality 1)
(("1"
(expand* "^" "min")
nil
nil)
("2"
(decompose-equality 1)
(("2"
(typepred "x!1")
(("2"
(expand "^")
(("2" (propax) nil nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil)
("2" (hide 2)
(("2" (lemma "equal_rest_equal_circuit")
(("2" (inst -1 "G" "w1" "w2")
(("2" (assert) nil nil)) nil))
nil))
nil))
nil)
("2" (skeep)
(("2" (expand* "reord_prewalk" "rest")
(("2" (expand "^" -1 4)
(("2" (expand "min")
(("2" (expand* "circuit?" "pre_circuit?")
(("2"
(flatten)
(("2"
(hide -3 -6)
(("2"
(assert)
(("2"
(case "i > length(w1) - 1")
(("1"
(expand "^" -2 3)
(("1"
(assert)
(("1"
(rewrite "empty_o_seq")
(("1"
(case-replace
"(w1 ^ (1, w1`length - 1)) ^ (0, i - 1) = w1 ^ (1, w1`length - 1)")
(("1"
(hide -1)
(("1"
(inst
1
"length(w1) - 1")
(("1"
(expand "^" 1 1)
(("1"
(rewrite
"empty_o_seq")
(("1"
(decompose-equality
1)
(("1"
(hide -2)
(("1"
(expand*
"^"
"min")
(("1"
(assert)
nil
nil))
nil))
nil)
("2"
(decompose-equality
1)
(("2"
(typepred
"x!1")
(("2"
(expand
"^"
1)
(("2"
(expand
"^"
-3)
(("2"
(decompose-equality
-3)
(("1"
(case-replace
"x!1 = 0")
(("1"
(inst
-2
"length(w2) - 2")
(("1"
(assert)
nil
nil)
("2"
(expand
"min")
(("2"
(assert)
nil
nil))
nil))
nil)
("2"
(inst
-1
"x!1 - 1")
(("1"
(assert)
nil
nil)
("2"
(expand
"min")
(("2"
(assert)
nil
nil))
nil))
nil))
nil)
("2"
(expand
"min")
(("2"
(assert)
nil
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil)
("2"
(hide -2 -3 -4 -6 -7 2)
(("2"
(decompose-equality)
(("1"
(expand* "^" "min")
nil
nil)
("2"
(decompose-equality)
(("2"
(expand*
"^"
"min")
nil
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil)
("2"
(case-replace
"(w1 ^ (1, w1`length - 1)) ^ (i, w1`length - 2) =
w1 ^ (i + 1, w1`length - 1)")
(("1"
(hide -1)
(("1"
(case-replace
"(w1 ^ (1, w1`length - 1)) ^ (0, i - 1) = w1 ^ (1, i)")
(("1"
(hide -1)
(("1"
(case
"i = length(w1) - 1")
(("1"
(replace -1)
(("1"
(expand "^" -2 2)
(("1"
(rewrite
"empty_o_seq")
(("1"
(inst 2 "i")
(("1"
(replaces -1)
(("1"
(expand
"^"
2
1)
(("1"
(rewrite
"empty_o_seq")
(("1"
(hide
1)
(("1"
(decompose-equality
1)
(("1"
(hide
-1)
(("1"
(expand*
"^"
"min")
(("1"
(assert)
nil
nil))
nil))
nil)
("2"
(decompose-equality
1)
(("2"
(expand*
"^"
"min")
(("2"
(decompose-equality
-1)
(("1"
(typepred
"x!1")
(("1"
(case
"x!1 = 0")
(("1"
(inst
-3
"length(w2) - 2")
(("1"
(assert)
nil
nil)
("2"
(expand
"min")
(("2"
(assert)
nil
nil))
nil))
nil)
("2"
(inst
-2
"x!1 - 1")
(("1"
(assert)
nil
nil)
("2"
(expand
"min")
(("2"
(assert)
nil
nil))
nil))
nil))
nil))
nil)
("2"
(expand
"min")
(("2"
(assert)
nil
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil)
("2"
(assert)
nil
nil))
nil))
nil))
nil))
nil)
("2"
(inst 3 "i")
(("1"
(decompose-equality
3)
(("1"
(hide -1)
(("1"
(expand*
"o"
"^"
"min"
"empty_seq")
(("1"
(assert)
nil
nil))
nil))
nil)
("2"
(decompose-equality
1)
(("2"
(typepred
"x!1")
(("2"
(expand
"o"
-2)
(("2"
(decompose-equality)
(("2"
(hide -1)
(("2"
(decompose-equality)
(("1"
(expand
"^"
-1)
(("1"
(expand
"min")
(("1"
(case-replace
"x!1 = 0")
(("1"
(expand*
"o"
"^"
"min"
"empty_seq")
(("1"
(inst
-2
"length(w2) - 2")
(("1"
(assert)
nil
nil)
("2"
(expand*
"^"
"min")
(("2"
(assert)
nil
nil))
nil))
nil))
nil)
("2"
(inst
-1
"x!1 - 1")
(("1"
(assert)
(("1"
(expand*
"o"
"^"
"min"
"empty_seq")
(("1"
(lift-if)
(("1"
(ground)
nil
nil))
nil))
nil))
nil)
("2"
(hide
3)
(("2"
(expand*
"^"
"min")
(("2"
(assert)
nil
nil))
nil))
nil))
nil))
nil))
nil))
nil)
("2"
(hide
-2
2)
(("2"
(expand*
"^"
"min"
"empty_seq")
nil
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil)
("2"
(assert)
nil
nil))
nil))
nil))
nil)
("2"
(hide -1 3)
(("2"
(decompose-equality 1)
(("1"
(expand*
"^"
"min"
"empty_seq")
nil
nil)
("2"
(decompose-equality
1)
(("2"
(expand*
"^"
"min"
"empty_seq")
nil
nil))
nil))
nil))
nil))
nil))
nil)
("2"
(hide -1 3)
(("2"
(decompose-equality 1)
(("1"
(expand*
"^"
"min"
"empty_seq")
(("1"
(lift-if)
(("1"
(ground)
nil
nil))
nil))
nil)
("2"
(decompose-equality 1)
(("2"
(expand*
"^"
"min"
"empty_seq")
(("2"
(lift-if)
(("2"
(ground)
nil
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
nil))
--> --------------------
--> maximum size reached
--> --------------------
¤ Dauer der Verarbeitung: 0.37 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|