Skip to content
Snippets Groups Projects
Commit f296c399 authored by gabrielhdt's avatar gabrielhdt
Browse files

removing debug

parent b4639c70
No related branches found
No related tags found
No related merge requests found
......@@ -28,8 +28,6 @@ definition ↓ {t} ≔ downcast {t}
// rule η (maxcast (maxcast $t)) ↪ η (maxcast $t)
set flag "print_implicits" on
set debug +u
rule π {$t ~> $u} ↪ λx: η $t → η (μ $u), ∀ (λy, π (x y))
with π {psub {$t} $a}
↪ λx: η (μ $t), (π {μ $t} x) ∧ (λy: ε (π {μ $t} x), $a (↓ x y))
......@@ -72,7 +70,6 @@ proof
refine λx: ε false, x
qed
set flag "print_implicits" on
rule ε ($t ≃ $t) ↪ ε true
rule ε (($t1 ~> $u1) ≃ ($t2 ~> $u2))
↪ ε ((μ $t1 ≃ μ $t2)
......
......@@ -49,7 +49,6 @@ symbol associative_add
constant symbol real_pred: η (pred numfield)
definition real ≔ psub real_pred
set debug +u
set flag "print_implicits" on
symbol Num_real: ε (∀ (λx: η {|!Number!|}, real_pred (insertnum x)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment