23 lines
464 B
Text
23 lines
464 B
Text
import logic
|
|
|
|
definition b :=
|
|
let a := true ∧ true,
|
|
a := a ∧ a,
|
|
a := a ∧ a,
|
|
a := a ∧ a,
|
|
a := a ∧ a,
|
|
a := a ∧ a,
|
|
a := a ∧ a,
|
|
a := a ∧ a,
|
|
a := a ∧ a,
|
|
a := a ∧ a,
|
|
a := a ∧ a,
|
|
a := a ∧ a,
|
|
a := a ∧ a,
|
|
a := a ∧ a,
|
|
a := a ∧ a,
|
|
a := a ∧ a,
|
|
a := a ∧ a in
|
|
a
|
|
|
|
check b
|